
Magyarorsz^gort. A kis^rl^tre 
kiszeinelt uAroska Eg^r. A kfs^rlet 
tIrgvB p^dig a mikroelektrDrvika 
Fi&ni ift olyan uj vivrnfinyaH az in- 
formdcidt tirold hitelkArtya* 
Amellyel odam^het lu^ajdonosa 

i b&rmelv napszakban p^nzi 
v«het ki sz^miai^r^^, s amellyel 

helyftn - uiletbeft. ^mr^mben, 
0TP-fi6kbei> " fixelhet is. A hir 
voltakdppan drv^ndatas, hi&zan I 
■rr6l tenQskodifep hogy a lacbniks 
ama dIdSsos vlvminyg lassank^nl 
horrdnk is beiof . Elmarad*sufik 
0 tefiiletan nam nagyobb, mint 
lok misban. Nyugatori turlstAs- 
kod6 honfft^raaink I^tSsbdl m4r 
161 i^marik e^t « t«chnikai 
vivmltnyt. hiszen sok hogy 
aloszdr c$od^lhattik mag «z 
«f fale ayttpmatAkat Jugoszl^viA- 
161 Amarikiig^ 

A hirnak azt a f^ftr^t nem ^rtem 
csup^n^ hogy mi abban a ki$4rlet. 
Hisz^n agy sokszor ^5 sok helyen 
kipr^bAlt dologr6l vaa szd. 
A rend^zar mOkodok^pas. bavdlt. 
bizonyit^k *ppfin et6g akad fA. 
Prinziink arrfl. hogy bevezessuk az agd^x orwAgban nyMvin 
ann^l keyasabb. Ez id^ig vil^gos. Iginy a bevazet^^^ire mFni- 
mSlif, LegalAbbis erre kalJ kovetksiptBtnunk abb6l. hogy az 
OTP takor^kc&akk nevQ „mOintezm*ny" IrAnt sam egotwera 
az ^rdekl6das. MArp^dig a pilienatban ez ax agy^tlan olyan 
fizetaos:ckdz kis hazSnkben, amaly bAfkj szAmflra hoziAffir- 
hato ugynevezett p*nzkJm^l6 lehatos4g. E sorok fr6jB mmt 
« modarn dolgok irflnt beoltoti *fdekl6d5 kip/6bfttta m^r art 
a csakkal. S ily mbdon megmondhatdi*, hogy az ^Ifempolgi- 
rok irdakta^ansigc egyis^erp okkal magyardzhatdK Axial 
ugyanls, bogy OTP taksf^kcsekk csak afre j6. hogy gai- 
dAj^t is, embertdr^a-it Is ftilhasszantSB. All az ambar a harminc* 
m^tar^s sorban p^id^ui a Sk^la ^lalmia^ar oszt^iydnak p4nz- 
t4rifi§l. Sorra kerul, A szAfnla 1200 forintot mutat. Az embar 
aloveszi caekhf Ozet^t, kitblt egy ceakkat, ElohaFAssza a sza^ 
m^lyrj^U s odaad^a a p^nztdroanak. A pgnztAros megkdvultan 
b^mui az embefra. N6inl habozAe utin aagfta4girt kiAlt. 
Gizlkan az Ogyalata^ tizieivezetO 2-3 perc ul6o eldkariii. O mAr 
tudja, hogy mir6L van az6. b^t elmagyardzza a pSnzt^roanS- 
nak. Vfllami nyomtatv^ny karii^ elo. alt Mtdltik... tm az Igy 
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magy kb. 3-4 peroig. Kozban 
a magottem AII6 aorban A\\6kmt 
meguti a guta. Nakam mag 
^gjan \m a pofSmrdI a bor^ 
bogy agy^lialAn ilyasmfl 
mef^aza I ak. 
Hit Igy. Igy magy abban a kav^a 
uzfatban, abot egyahalAn 
aifogadi^k a csekkat. Mart a 
lagtdbb helyen el sem fogadj^k, 
Igy azutSo az ^liampolgSr 
enyh^n sidlva idagankedik 
a modarn kof eme vivm^nysit^L 
Nam osoda tehAi ba kfs^rla- 
texunk. Kiairiai^zunk olyan 
do(g okkal, amalyak sokfi^orosan 
ki vannak tal^lva. Nam nabdz 
magj6aolni az agri kls^rlat 
aradmAnyAt. A bMor. v^Halkozd 
keduQ egriek (minthogy «zul6' 
vdroaomr6l van - kiiildnoeafi 
azurkoiak nekik) kbtikl n^bany 
azran nyilvin ^Inek majd 
a falkrndit labetdsdggal. 
Kiv^\xm kis kirtyijukat^ 
■ nShiny hdnep multAn n^aguti 
5kat a guta. Kirty«juk 
ugyani« csak bonyodalmot 
okoz maJd nakik. Lasznak 
azutdo a v4ro9bBn p,aietak'% 
Nyilvdn tasznak vandAI eiamakp 
akik n^mi k^^zp^nz ramdny^ban 
megpr6b6inak fdifestKani. 
s^t^tvariii agy-ogy aittomaidt. Eradm^nyuk caak annyi last, 
hogy n*hiny b*tre alromllk a ^larkazet. Cikkak jelan- 
nek majd mag a Haves megyai Ndpujsdgban^ ameiyakban 
J61 lataramtfk az agri Tidpet, hogy nam al^g draft m^g egy 
ily en kJs^riatro. Eliaitcikkak i« snijlatnak majd. amelyek ma^- 
trjik, bogy nam a n^p, hanam a technika, mag az agisz 
infrastruktura a hibds. ^n mdr elGra azeknek az allantikkaknak 
a azarzSivel drtek egyet. Ogy gondolom ugyanis^ hogy nam 
kfs^rlatazni kallane, baitam a bavdit raceptak szarint fdl 
kaUane Apitan^ agy randszari. Olyat^ amelyr^l bablzonyoso- 
doiT, hogy mOkodik. Ez az agiu ugyanis skkor §r vaJamIt, 
ha min*l sz^lssebb korben hasiitAlhatja tulaidonoso a kflr- 
tyAt. Az automata sz^tvartisek, feszegetdsak pedrg tachfiikai- 
lag fajlattebb orst^gokban sam sz^mhottak riikes^gnak 
alainta. Azutdn azakat a barendez^sekat is megszoktdk, 
£s az lenna a Idnyag. Megszokni, Iidtk5znaplv^ tenni az 
taohnika Sld^aalt. Ami mGkddik, abban ugyaois bimak az 
amberak^ Tessik pdlddul a kar^kra gondolni. Vagy tabat« 
hogy ndSunk azt b a15flzdr klsdrleli iallaggel vazatt^k ba7 

Angy^fo^f Liszid 



WroWa/ - amelyben a teszteredm^nyek szerinti leggyorsabb PC-t mutatjuk be. 
® Memdriafe/oszt^s ax Enterprise-on - ism6t megpr6b^lunk egy szeletet p6tolni az eltitkolt inform^ci6kb6l. 
Q N6hany kieg6s2it6s a g^pkonyvhoz - mert az Enterprise konyve nem 6ppen b6besz6du!. 
0 Bruttdsitd ismSt-merX kiderult hogy ez a problenna nem is olyan kis probl^ma. 
O drrfoj/ -do log tort^nt a k6t h6napja kbzoltTVC DISASSEMBLER-rel. 

A lista egy r6sze eltunt a nyomdai hom^lyban. Ez^rt megism^teljuk. 
Q Konyvmoiy- Egy kis grafika - a rovat szokatlan terjedelemben 6s szokatlan tartalommal jelentkezik. 

Egy konyv kapcsln belemerulunk a rajzolgat^sba. 
® Atari kor - programozhat6 funkcibbillentyuk - egy program, amely azt tudja amit a cime mond. 
© BiT-LBT KarScsony - megism^teljuk a felhiv^st. s varjuk oivasbinkatl 

® Sorvezetd- Lesz-e valaha is rend? - a kerdes k6lt6i, a sorbarendezo program amely ^rkezett a rovatvezet6h6z 

- viszont ^rdekes. Ami minderr6l neki eszebe jutott m^g erdekesebb. . . 
Q Nyerd- Itt is szerepelt a rendez^s, fgy egy m^sik programot is kozlunk, valamint a sorsol^s hely^t idejet. 
® Enterprise nyerd - a m^sodik feladat megoldas^val. a negyedik feladattal, s az Atari nyer6 sorsol^s^nak kituz^s^vel 
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SI AMirisrrEMJi^iiii ttELiEXUi 1117 kbv{w«i 



memOria 
felosztas 




Az ENTERPRISE sz5mft6g6p 128 
Kbyte RAM-mal 6s 32-32 Kbyte bels5, 
ill. kuls6 ROM-mai rendelkezik. A g6p 
Z-80 tfpusu mikroprocesszora azon- 
ban csak 64 K mem6ri^t tud kozvet- 
lenul megdmezni. Aiervezdk ©zt egy 
ijn. lapozd logika be^pft63§v6t oldot- 
tik meg. amely a kuJs6 fizikai mem6- 
ri^t (ez max. 4 Mbyte lehet) a 
Z-80 64 K logikai mtsz6lagos) me- 
mdnii&t egyarSnt 16 Kbyte- os dn, 
fapokra osztott^k feL A Z-80 P 4 db 
logikai lapj^nak brmetyik^hez hoz- 
zdrendelhenjuk a max. 256 frzikai me- 
m6ria fap b^rmelyik^t A hozziren- 
delist A regtszterret v^gazzuk el, amely 
perif6riak6nt lett kialakftva. 

A kiosztAst 

az alibbi £bra mutatja : 



Zr-80 elm 



Port dm 



I 0000 - 3FFF 

II 4000 - 7FFF 

III 8000- BFFF 

IV COOO-FFFF 



176 = BOH 

177 = B1H 

178 = B2H 

179 = B3H 



A portok frhat6k 6s olvashat6k is. 
A fizikai memAria f elosztAsa : 



lApszAm 



Tartalom 



248 - 255 

0 6s 2 

1 6s 3 

4 6s 6 

5 6s 7 



RAM 

Be6pftett 32K 
ROM 
Kuls6 32K 
ROM 



A rendszerv6ltoz6kat a program a 
255. fapon helyezi el, a BASIC prog- 
ramot a 248. Iapt6l kezdi elhelyezni. 
A 248. lapon van a megszakft^srutin, 
vaiamint az RST 30 rutin bel6p6si 
pontja, teh^it ez a lap van a Z-80 I. 
lapj^n. 

A billentyQzet 

Sokszor szuks6g lehet arra, hogy tobb 
billentyu egyszerre t6rt6n6 lenyom^- 
s6t figyeljuk, ill. g6pi k6db6l olvassuk 
le a billentyLJzetet. A billentyuzetet a 
g6pen szok^s szerint m^trixba kotot- 
t6k. A matrix leolvas^sa a 181. 1/0 
porton keresztui t6rt6nik. El6sz6r ki 
kell adni a 181. portra a leolvasni 
kiv^nt sor sz^m^t majd ugyanezen 
a porton leolvashatjuk az adott sor- 
ban leva billentyu ^llapot^t. Egy bil- 
lentyu lenyom^sa eset^n a hozz6 tar- 



Xoz6 bit 0 lesz. Ha BASIC-b6l akarjuk 
leolvasni, akkor egyszerubb m6d is 
van, a megszakft^srutin ugyanis leoU 
vassa a billentyut 6s a leolvasott 6r- 
t6keket t^rolja a mem6ri6ban. Itt azon- 
ban egy billentyu lenyom^s^t a meg- 
felel6 bit 1-be v6ltisa jelzi. mert a 
leolvas6 rutin neg^lja a leolvasott 6r- 
t6ket. 

A memdri? kiolvas^sakor tobbszor le 
kell olvasni a billentyOzetet. mert a 
megszaklt^srutin nemcsak beolvassa, 
hanem torii is az adatokat, valamint 
az onmagukban az editor szcim6ra 6r- 

A mitrix f el6plt6sa : 



t6ktelen (CTRL SHIFT stb.) billen- 
tyOket nem tudjuk fgy leolvasni. 
A sorsz^m kikuld6sekor vigyizni kelL 
mert a 7. bit a REM2, a 6. pedig a 
REM1 vez6rl6je: ha a bit 1, akkor & 
kimenet aktfv. (Avez6rl6 jelet azon- 
ban a megszaklt^srutin is kikuldi, te- 
h6t ha nines letiltva a megszakftSs, 
akkor nem 6rdemes itt pr6b^lkozni.) 
Az ENTERPRISE sz^mit6g6p Iegfels6 
k6perny6sora egy un. STATUS sor, 
amely a program pillanatnyi ^llapo- 
t6ra vonatkoz6 adatokat tartalmazza. 
BASIC-b6l ezt a sort csak ki. ilL 



Sor- 


Mem6riaclm 
{255. lap) 0. 


1. 


2. 


3. 


BITEK 

4, 


5. 


6. 


7, 


0. 


15638 


N 




B 


C 


V 


X 


Z 


bal SHIFT 


1. 


15639 


H 


LOCK 


G 


D 


F 


S 


A 


CTRL 


2. 


15640 


U 


Q 


Y 


R 


T 


E 


W 


TAB 


3. 


15641 


7 


1 


6 


4 


5 


3 


2 


ESC 


4. 


15642 


F4 


F8 


F3 


F6 


F5 


F7 


F2 


F1 


5. 


15643 


8 


9 


9 




0 




ERASE 




6. 


16644 


5 




K 




L 








7. 


15645 


STOP 








HOLD 




ENT 


ALT 


8. 


15646 


M 


DEL 




/ 




jobbS 


SPC 


INS 


9. 


15647 


1 




0 




P 









A sorsz^mot kell kikuldeni a 181-es portra. 



10 PROGRAM DEMO„PHGM 
100 ALLOCATE 100 

110 CODE ST=HEX$( "0E,81.F3.CB,03,CB,03,CB,03.ED,59,CB.0B,CB,0B, 
CB,0B,1C,3E,03,D3,B5.DB,B5,E6.80,06,0B,10,FE.0,0,20,E1,FB,C9*) 
190 DEF STATUS CA$) 
200 FOR I-l TO LEN(A$) 
210 SPOKE 255, 16055+I,OHD(A$(I)) 

220 NEXT I 
230 END DEF 
1000 REM FoprograiD 

1010 LET X$=" Szabo Lajos Kecskemet "rCALL STATDS(X$) 

1020 OUT 191.2 

1030 REM Grafikus lap letrehozasa 

1040 SET VIDEO Y 24 

1045 SET VIDEO MODE 1 

1050 SET VIDEO COLOR 0 

1055 OPEN #10: "video:" 

1060 SET #10: PALETTE BLACK. WHITE 

1065 SET #10: INK 1 

1070 DISPLAY #10: FROM 1 TO 24 AT 1 
1200 PLOT #10:0.0;1279,0;1279,863;0.863;0,0; 
1210 PRINT #10. AT 10, 10: "A teljes kep firafikus" 
1220 WAIT 3 

1300 LET A$=" STOP : ESCAPE tlllentyu 

1310 CALL STATUS (A$) 
1320 LET A^USR(ST,0) 

1330 LET X$=" ":CALL STATUS(X$):! 6. kar. torlese 

1340 DISPLAY TEXT 
1350 END 



A g^pi kdidu rutin assembler list&Jas 
START 



DEL 



BEyBl 


LD C,B1 


1 


A DUNUC.K porTLjA 


F3 


DI 






CB,B3 


RLC E 


i 


A 1 A. A. ^ _ ^ 1^ 


CB,e3 


RLC E 


i 


A szlnak 


CB,03 


RLC E 


i 




ED,S9 


OUT (C) ,c 


I 


van szuKSBg 


CB,BB 


RRC E 






CB,0B 


RRC E 






IC 


INC E 


t 


K OV • BZ in 


3E,03 


LD Af 3 




DX 1 1 ■ BOr 


D3,B5 


OUT <B5>,A 






DB,B5 


IN A, (B5) 


f 


bill, leolv. 




AND 80 


9 


csak az ESC. 


06, BB 


LD BfOB 


I 


bill. 


1B,FE 


DJNZ DEL 


S 


idOzit«s 


BB 


NOP 






BB 


NOP 






2B,E1 


JR NZ, LOOP 


; 


Ha nem ESC 


FB 


EI 


; 


akkor ugris 


C9 


RET 







bekapcsoini tudjuk. Egy kis munk^- 
val azonban mi is tudunk ide (rni. 
A sortartalm^t a 255. lap 1 6056-1 6096 
membria tartalmazza. Ha ide megfe- 
lelo 6rt6ket POKE-olunk be, ^tirhat- 
juk a sor tartalm^t. 



Azonban: az editorba val6 visz- 
siatMs ^l\r\a a sort a 6. karakter ki- 
v§iel5vel. vaiamint a meg&zakft^s- 
rutin az elsfi 5 karaktert haszn^lja. 
BASIC programb6l xeh^t az elsfi 5 
karakiert m haszndljuk. 



A SET BORDER n utasft^s csak a 
27-es rendszerv^ltozbt (BORD ViD) 
v^ltoztatja meg, a keretszfnt a meg- 
szakftSsrutin ilUtja cit a soron kovet- 
kez6 lefut^sa sor^n. A 1 29. portra egy 
ijj keretszfnt kikuldve, az azonnal meg- 
jeienik a k6perny6n, de ha a BORD 
VID rendszerv^ltoz6t nem Irjuk ^t. a 
megszakft^isrutin term6szetesen visz- 
sza^llttja az eredeti keretszfnt. fgy 
6rdekes hat^sok hozhat6k I6tre. g6pi 
k6db6l teljesen kihasznilhatjuk a le- 
het6s6get. 

A felhaszn^!6i k6zik6nyvben a fugg6- 
leges felbont^s maximum^t 720 pont- 
ban hat^rozz^k meg. Ez fgy van, ha a 
grafikus k^pernyfit GRAPHICS uta- 
sft^ssat hozzuk I6tre. Ha azonban 
OPEN-nel megnyitunk egy grafikus 
csatorn^t 6s a lap m^rete fugg6lege- 
sen 24 karakterre van ^llftva (SET 
VIDEO Y 24) vaiamint az ablakot is 
24 karakterre defini^ljuk (DISPLAY 
csat,: FROM 1 TO 24 AT 1 ) akkor a 
fuggfileges felbont^s 864 pont. 
A programban p6lda tal^lhat6 a na- 
gyobb fuggfileges felbont^sra, a 
STATUS sor Ir^s^ra, a BORDER szfne- 
z^s^re 6s g§pi k6db6l tdrt^n6 billen- 
tyQzet leoivas^sSra. Egy^bkinta prog- 
ramb6l l^that6.hogy milyen struktur^lt 
programokat lebet ettSSIlftani a g^p 
BASIC-i^vel. (Akik m^g nem talSI- 
koziak a g^ppeE. azoknak elmondom, 
hogy a lista tordel^s^t a g6p automa- 
tikusan v6gzi el, a lista azonos a k^per- 
nyfin megjelen6vel.) 
A 191. port 1. bitj^vel megv^ltoztat- 
hatjuk a billentyuhangot. 
Prdb^ljuk ki: OUT 191,2 

Szab6 Lajos 



MEHAMY KIEGESZiTES 
A FELHASZNAI-61 KCZIKONYVHOZ 



Nem c^lom a gdpkdnyv fiftzl«tt» birAla- 
tfl, ahhoz ugyanis a \ap terjadelme tul- 
s&goaan ktcsinv^ Sajnos, am^Detu hoq^ 
r«ndktvOI Inf^rm4ci6t ad a gya- 

korlottabb feLI%asznA[dr>ak, igan dtirva 
■alt6hib^kkat keseriti mas a gyanutlan 
k«zda ^letM [b {m^rparua n o^pkonyv]- 

I, Az INPUT utasdiBbflrtr ba a k^rdfijaf 
halyettaiciv^O^t akarijnk mogjalen^teni. 
torm6»aLetesen 8 PROMPT kulc»sz6t 
M\ all(s1mB£nunk, nem pa dig ft honyv- 
ben t6bb«7or is (^s mindonnyis^or hi- 
b£sAn) szerapl5 P^OMT-ot. Hibds tab^t 
a 18. oldalon Itezdada p^idaprog- 
rem hat helyen, a mdsodik kit halyen^ a 
26h oldal programla k^t hely^n, u 27. 
oldal sfov^ge b^rom bdiyan^.. 

II. A POS(*|,¥t) *s n POS {x|;,y#,fi) 
bttbS f ugfv^riyeh a f alho^ott pAidikka! 
agyutt bib^sak. Halyeaan a POS(xf, 
yll az y$ ^zdvegr^szlBt also aiafordu- 
U»^t adloi meg ez x- szovagben, dp pen 
fofftitva. mint a leJr/l»t«n szerapeL 
Qpyanaz igaz a POSUt. y$. Ei)-ra 

A pdldik helyes«n: 
POS(,.LOrjD0N"* ,.ON''}-2, ** 
POS(.,LDUD0N", .-0N'\ 4) = i 



111. Kiimradt kdt (b4r nam tat J elan tds) 
b«l«a viltoz6 a feljioraldsb^h 
VERNUM ^n^ke a v^rziflazim. azaz 2.1 
VERS ..EnterpriM IS-BASIC wer*ion 
2.1 c 198fi Intelliflant Softwara ltd" 
Van m^g a kdnyvben iaft^biba b6v«n, 
de azok nem iiyen stilyDsak, tgy a fent 
emiltattek miatt nem sofolom fel aket- 
V6e«zatul az ditalam l^mert spacljilla 
karakterkddokat adom meg, amoiyek 
nsgyon idl haszn^lbaiak programb6l o 
k^pernyatartaiom formAaEditSra 4s moz- 
gat^&^ra : 

24 a bal mttrg^t a kurzor ou I op Aba 
ilKtja 

25 tdroL a aor v0g4[g (mint a Shift- 
Delel«) 

torli a k^purnyfit 



leo 

161 
162 

raa 

1S4 
165 
166 
167 



Delete 

Sbift-f De^eta 
Ctrl + Daiete 
Alt I Delete 
Erase 

Shift 4 Erase 
Ctrl ! Erase 
Alt 4 Erase 



168 insert 

l&i Shifts Insert 

17D Ctrl 4 Insart 

171 Alt + tnsert 



17e-t4SM91<ig t*l4rhat6k 
a kurzormozgatd ka^dok 



17S fol 
178 Ct-fdi 
l» 

Ct + le 
baira 
CI 4 bfllra 
188 Jobbra 
IQO Ct+jobbra 



1B0 
1B2 
ia4 
186 



177 Sh + fdi 

178 AH- fol 
lei Sb + le 
183 Ai + te 

186 ShH baIra 

187 Al-rbalra 
189 Sh-hjobbra 
1S1 AHjobbra 



Cttl + Fl 
242 Ctrl + F3 
244 Ctfl + Ffi 
246 CtrH-F? 
248 Ait^FI 
250 AU + F8 
252 Ak + FS 
254 Alt + F7 



241 Ctri + F2 

243 Ctrl E F4 

24B CtrF4 FS 

247 Ctrl + fe 

248 Ait+F2 
261 Ait + F4 
253 Att4F6 
255 Alt^ Fa 



MSaMiroB Of aim 

1029 Bp Zsir<»shG9Vi ^t 110. 



SiilllTiSUCIKIIAl HELIlllU HIT NDVlMIE 



E15z5 sz^inurkkban 
hdzortunk ogy'Brutti- 
slt6 programot. 
Amikor a k^zrratot As 
a programlist^tnYom- 
ddba adtuk, rn^g 
meglahdtds bizonyta- 
lans^g uralkodott a 

ad6 ugv6b&n< Igy tobb 
5ajt6kdzldnn6nyben 
is hiba^an idlentak 
meg az adatok. (VlAr* 
padig a pfogram a 
kdztam6nv«k alapj^n 
k6s2ijlt. Nam u6latlan 
tehdt, hogy hibSk 
karultak bate. Eiuttal 
nam programaz&si, 
banam szdmszakt 
ja^legCjek. 

T^vad^ainkra V(gb 
Gyfi^SV h\vta fal 
figyalmunkat - eagit- 
d^dt miton is ko- 
S25njuk. Otvas6tnkt6l 
pddig alndz43t k^runk. 
A kdzolt program 
tegnagyobb bibSja, 
bogy nam a jaterilagi 
n9tt6 karasatbSI in- 
dui ki a sz^molisndl. 
M^srSszt padig 
fah^tatts utasit^sba 
a idvadalemad<^ sitv- 
bat^rok karuitak. 
holott ahalvett a j6- 
vadal6mad6-savokhoz 
tarto3:6 nett6 karaaat- 
hat^rokat kallatt 
volna figvat#mba 
vanni ) 

(Aki nam Arti 0^ a 
mondatot, na jug- 
ged jen. Mis do tog 
progrsmot i mi to mis 
dotog az ad6z^3i 
sz^mugyakban aliga- 
zodni. Mi sem ^rtjuk 
m6g pontosan, da 
abban vdgra biztosak 
vagyunk, hogy ez a 
program va16ban azt 
szAmoljaki,amit kail I) 
Ezskat a hivatalosan 
m#gillapitott 6rt6* 
hakat agydbk^nt sok 
fap lakozolta, tobbak 
k5zt 9 42-aa Magyar 
Kozldny. s ezak az 
^rc^kak vannak most 
mir a programban^ 



atlagbol " 
osazsgbol " 
ksraavtBlcbol " 



10 ram *»» bruttositaa •** 
20 print chr*(147) 
30 print iprinta print 
40 prinfffli a faladat 7" 
50 print" 1 - azamolaa havi 
60 print "2 - azamolaa avaa 
70 print "3 - azamolaa havi 
BO print:print 
90 input q 
lOO if q»lthengQta24B 
110 if q-2th«ngotolB0 
120 ifq»3th»ngotol40 
130 gotD20 

140 y'Oa n*Oi f Qri«ltQl2a print! I 

ISO input", havi brutto karesvt " | q: y°*y-*-q 

160 i nput "nyugdi j Jarul *k " | q s n^n+q 

170 naxti BM*'y-nigoto420 

IBO ram *** azamolaa avas osazagbol *«» 

190 print chr*<147) 

20a inpufjalenlagl avaa brutta karBaat";y 
210 input" jalanlagi avaa nyugdi J jarulak" | n 

220 x»"y-n 
230 goto420 

240 ram azamolaa havi atlagbol **«■ 

250 printchr*(147) 

260 input "jalanlagi havi brutto kereset";y 
270 ram jalanlagi nyugdi j-kulcs 

280 n<=0.O3 

290 ify>2100 thenn=30.04 
300 ify>26O0 thanna0.05 
310 ify>33e0 thenn-0.06 
;^0 ify>43O0 thann-0.07 
330 ify>5300 thenn=:=O.Od 
340 ify>6300 thenn=O,09 
350 ify>73O0 thenn=0. 11 
360 ify>a300 thenn=0,12 
370 if y>10300thenn=a. 13 
3Q0 if y>12300thenn'=O. 14 
390 i f y > 1 4300thenn=e . 1 5 

400 K=y-int (n*y+-5) :y=y*12:print"havi nettot";N 
410 K»?<«12 

420 ram »#•* adokulcs •»*• 
430 ifM>0 thena>=0 ;c=0 a sa=0 

440 ifx>54000 thena-e.2 bc»0 i Ba-4BOOO 

4S0 ifM>6940a thana-O.25:c-440O : 5a"700OO 
460 lf)c>a2400 thana-0.3 !C-i94aO :aa-90D0O 
470 ifK>lOO4OOthana«O.35ic-18400 isa"12eeOO 
480 ifK>lt69O0thena-a.39ic«2B9eO iaa«15000e 
490 if M>1322O0thana«0.44sc=-4O6OO esa^lBOOOO 
500 if)(>159BO0thana>:-O.4g»c-670Oe iaa«240000 
510 i f »< >2 1 0200th ena-0 . 52 1 c - 1 24600 : Ba»3600OO 
520 i f X >3014OOthena-0. 56: c»249400s ea-6OO0OO 
530 if K>369400thena-O.6 a c=>«36140O; sa=80OOOO 
540 ram *** bruttositas *»♦ 
550 b-<>f+c-<Ba-i-12000)«a)/<0.9"a) 
560 pr inf'uj evaa brutto kereBat3";b 
570 prinf'uj havi brutto kereaet : " ; b / 1 2 
5B0 got 030 



Szeretndnk megnyugtatni tisztelt TVC- 
tulajdonos olvasdinkat, hogy a hiba 
nem bennuk van. Szeptemberi szAmunk- 
ban kozdituk ugyanis a TVC DISAS- 
SEMBLER programot, amelyet sokan 
megprdb^ltak beirni, de tn&r az els6 
sorokndl elakadtak. A listdkba ugyanis 
olyan kapitdlis mdretQ baromsdgok ke- 
rultek, amiket mAg az 5 dveaek sem 
esznek meg. (P^lddul: RETUR, vagy ON 
NY dOTO 3860340.) Nos a dolog- mdr- 
tnint, hogy jelenhft^tt meg llyen hibds 
lista - annyira ^rdekes, s rdaddsul 
technikai vonatkoz^sur hogy meg6r egy 
pdr sort. 

A lista amelyet nyomd^ba adtunk - ter- 
mdszetesen jd. (Remdljuk^ hogy hibdt- 
lan.) A figyelmes szemldKS dszreveheti, 
hogy mindkdt Hata kozdpsd rdsze hidny- 
zik. Mintha valaki hosszdban kettdvdgta 
volna a listdkat, s kiemelt volna bel^le 
egy darabot. Nos, a hiba elektronfkus 
.jeliegG". A lapot eiakdszlt6 Zrinyi 
Nyomddban a fekete-fehdr k^pi^k, raj- 
zok, s Igy a programlistdk filmjdt egy 
elektronikus Scanner nevQ berendez6s- 
sel k^szltik. A Scanner, ugy tGnik, idfin- 
kdnt hibdzik. (Mint megtudtuk, nem ez 
volt az elsd eset, csak nekunk m^g nem 
volt hozzi ezerencs^nk.) A hiba ered- 
m^nye, hogy a fllmkdszftdsndl „ugrlk" 
a g6p, 6s igy a fot6zand6 k^p egy sdvja 
kimarad. Az eredm^ny meggyoz6. Nyil- 
v^n egy fotdndl 6szrevehetd a dolog, 
egy programlist^ndl rdn^z^sre nem Idt- 
szik. (Mi is csak a megjelen^s utdn egy 
battel 6rkezd elsd reklamdib lev^l hat^- 
sdra dobbentunk rd, hogy valami nem 
stimmel.) Ogy Idtszik, a berendez6s 
oregszik, mert ha ibi megn^zik, ugyan- 
ebben a lapszdmban a 20. oldalon az 
Enterprise-r6l k^sziilt rajzban is van 
egy kis „folytonossdgi hidny". Ennek 
oka ugyanaz, mint a programlista 
hiAnyossdgdd. 

Ha nem computereslap lenn^nk, bfzvdst 
mondhatndnk, hogy ,,igy bizzon az em- 
ber a modern technikdban". Ezzei azon- 
ban magunk alatt vdgndnk a f^t, fgy 
hdt csak azt mondjuk: ime, a magyar 
technol6giai szfnvonal. 
Gondolkodtunk, hogy a program irdnt 
drdeklddd olvasdink kiel^gttdsdre csak 
a program kdzep^t kozoljuk ujra, de 
azutdn folr^mlettek eidttiink a sot^t 
utcasarkon rAnk v6r6 tdvdcdsek kez^ban 
l^vd husdngok. s ezdrt az egdsz program 
ujrakdzi^se meilett dontottunk. Eln6- 
z^st pedig ezOttal nem a magunk nev6- 
ben k^runk, hiszen nem mi hibdztunk. 
SCANNER SORRY! 



A szerkeszto azert van. 



hogy a lap olyan tegyen. 



amilyenek az olvasoi! 
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3020 ^\rr PALHtTM , 0. fl& . 211 i BDHDlIf 17 
aoao TJJfTA-l ■ FAl'lU-t) 
3O40 SET IHI TINTA^PAPEH 3 
3050 PHIHT AT 1 , 3: STHIHG»(28 , 126) 
3060 PBIHT AT 2,3:"* TVC Z-80 DISASM (C) Sz.J *" 
*3070 PHIHT AT 3 .3- STHIIIG*(28 , 126) 
3080 SBT PAPES PAPIB 

3090 PLOT 32, 662:991, 662, 32, 65e;991, 658 

3100 PC=0rPAGIHG-ll2:HY=l:MOD=l 

3110 GOSOB 6150:GOS0B 6170 
'3120 GO&OB 6190: GOSOB 6230 

3130 GOSDB 6050 
13140 DIH 0F*(39)*8,V»*46.Q$*32,Qlt*32 

3160 LEPKS»="DAHP HBBTT** :H=1 

3160 GET I» 

3170 FOB I-l TO LGN(LEPES«) 
3180 IF X*=I,EPES»(I) THKH H-I:GCTO 3200 

I2OO OHM ^SDB^3590,3570.3500, 3540.3610, 3700.3760,3780.3660,3880 
3210 GOTO 3160 

3500 HT=((HY-1) XOH 1)+1:GOTO 6200 
3510 OH MY GOTO 3530.3520 
3520 LPBIHT 

3530 PHIHT AT 9 . 1:CHH»C25) :HBTDRH 

3540 PBIHT AT 7 . 19 : '"* ; : IHPOT PBOHPT ■■Paaine= :Q1»:Q1»=«1»( : 2) 
3550 GOSOB 6110 :PAGIHG=Q1 : GOSOB 6090;GOSOB 6180 
3560 PBIHT AT 7 , 19 :STRIH6»( 12. 32) :BETORH .. ^ 

3570 PBIHT AT 7 . 19; " " ; : IHPDT PROMPT "AddreeB= :Q1! 4) 
3580 GOSDB 6130:PC=Q:GOSaB 6160: GOTO 3560 „ 
3590 HOD=H: GOSDB 6230 :P_C=PC: GOSDB 5000: GOSOB 3530: GOSDB 6330 
3600 FC:.PC+L*IHT(A/140)+IMT((A-IHT(A/1401*140)/35) 

3620 ClS^lT6OSOB%070:Hl=AI>AT: GOSDB 6010: V$( 7+2* (I-P_C) : 8+2* ( I-P_C) ) 
3630 GOSOB 6290 : V*t 17+1 -P_C)=CHB$(ADAT) 
3640 NEXT I 

3650 OH HT GOTO 3670,3660 
3660 LFHIST V* 

3670 PBIHT V»(:5)&V»(7:15)iV»(27:42) 
3680 PC=PC+1:G0S0B 6160 
3690 BETDBH 
3700 HOD=H: GOSOB 6230 
3710 GOSOB 6340 

3720 H-PC:GOSDB 6030: V»C :4)=W* 

3730 CI1!=PC: GOSOB 6070:H=ADAT <.cx 

3740 CIM=PC+1- GOSDB 6070 :W=W+256*ADAT : GOSDB 6030: V»( 32: 35>=H$ 

3750 vi(27-28)3^DlJ":P_C=PC:PC=PC+l:G0S0B 3530:GOSOB 6330:GOTO 3610 

3760 tl0D=H+l: GOSOB 6230 
^ 3770 GOSOB 6310:X^IHT(X) : IF X<1 OR X>12 THKH 3770 ^ 1 to * 

3780 PBIHT AT 4. 18: " • ; :PRIHT 0SIB6 :X:aOSOB 6340: FOR 1^1 TO X 

^ 3790 CIB^PC+I'l: GOSOB 6070 :H1=ADAT: GOSOB 6010 

3600 7$(6+2*(I-l) :7+2*(I-l)>-Hl» 

3810 HGXT I 

3820 H=PC:GOSDB 6030 : 4) =W»:PC=PC+X: GOSOB 6160:GOS0B 3530 
3630 GOSOB 6330: OH HY GOTO 3850,3840 
3840 LPBIHT V$ 
3850 PHIHT V»(:30):BET0HH 
3860 M0D=!1+1: GOSDB 6230 

3870 eOSDB 6310:I=IKT(X):IF X<1 OB X>24 THBH 3870 
3660 GOSOB 6340: PHIHT AT 4 , 18 : " " ; : PHIHT OSIHG #* :X 
3B9D FOB 1=1 'TO X 

3900 ClH^PC+I-1: GOSOB 6070:GOSOB 6290: V$( 5+1) =CHR*{ADAT) 
3910 HKXT I:GOSDB 3630 :HxPC: GOSDB 6030 : V»( : 4)r=H* :PC=PC+X 
3920 OH HY GOTO 3940,3930 
. 3930 LPBIHT V* 
3940 GOSDB 6330:PHIHT V»(:30) 

3950 GOTO 6160 ^ 
5000 BESTOBK 8000:FOH 1=1 TO 39:BEAD OP»(I):HfiIT I 
5010 D=0:L-0:A=0: GOSDB 6340 

5020 CIK=PC:GOSDB 607 0 : X=ADAT : W=PC : GOSOB 6030 : V»( : 4)-W$ 
5030 CIH^PC+L+li GOSOB 6070 :H1=ADAT: GOSOB 6010 :0P»(21)=H1$ 

• 5050 SlH=rcii:GOSra^07o!ll=PC+2+ADAT+Z56*(ADAT>127):^^^ 6030 
6060 OP»ll9)=»*:CIIi=PC+2:GOS0B 6070 :W= 256* ADAT 
5070 CIH=PC+1: GOSOB 607 0 : H=H+ADAT : GOSDB 6030: OP»{20)=*I» 
5080 0P*(18)(2:5)=*«:IF D=l THKH 5330 
5090 OH X/64+1 GOTO 5100.5200,5110.5120 
5100 BKSTOBB 8100: GOTO 5130 
5110 BESTOBE 8200: GOTO 5130 
5120 BESTOBE 8300 

5130 FOB 1=0 TO X AHD 63: HEAD A,B:NEXT I 

Ills ^?r,^«^:rt^'i;i ^ t..^ TH« «>=««0B B0IO=CP»(tT)=Hl,834O D*« 2S.2«.3J.Jl.e3.ef, 

6150 C^A-^b*jm-{ft/3h}:fim l-I TO CrHKAD C»:MMXT 1 



5290 0P*(7)(5:6>=H1»:L=1:FC=PC+1;CIB=PC: GOSOB 6070 
5300 X=ADAT:GOTO 5030 

5310 PC=PC+1:CIB=PC: GOSDB 6070:X=ADAT;D=1 : L-0 
£320 QPSC 11)= 'H1" :OPf f 7> = -f HL) ■' :GOTO 5030 

liroIiB- (fk tun fisj ak6 scym^o "raEw ii^tu 

H34f3 V»{?!7:2«]--11BC ;Bz37T + fe*(TE AHD B*7T0 blM> 

^ajbo :f (fi niH V4) akd an^Ksci ws^ b-jTu 

6380 M^l27:?.B)--A^' -B-^ftibwit RHh Hlfl)/2:GOT0 517D 

s:i7U IF (tl HOM ©4) AMD 19S)<fa TliEH 53!*n 

^^3ft^^ V»[2T:5B J -Tfl- :B=0flli^(X AWtJ !-6|/!!:m»if I7l=-Ct;j- flw™ 5170 
^3^0 IF ((X T£V^ 65 ) AND Ifl&loa TUEH 1^4111 

:B-&7 + &*tX AMU fj6)iCJl^*tl7)-"fC)-:GO™ 5170 
AMD an7H >Cl TTIIH 5430 

-B:37Sl5*U Am <aj/2:PC-Pe+Z:GPTU bl70 
am ?07UiB THFW 5450 

:H^T3rOp(X AMJl *B)/16 :PCTt?C+aiG0TO WO 



5160 C*-C:»ASTRI HCJSl 6-Lltll(C») , 32 > : V»f 27 : 31 i=C* 
frl /O C=H-Jt'j»iMT(B/40) : ll-O TUHH HBTDHH 
£iaC W = OP*(t^} C:=lNTtB/40):TF C<>« tHlH 1»= W ■ " t C ) 
b 1 90 1 a 2 : J ^X*A3TH 11^|. (1 2 - LKM t ) . 32 > ^ HETTIRH 

5Z0P IF St^lVB mm V|SS7 3tl>--(lAi.T" BKTTJBM ™*r*..^ 
S21B V4tS7L2a)= LD :f$^OP*UlC AHD 56) 1 ) A" h •'*<IP»( < I UmTj+n 
5220 A=140:GOTO 5190 
5230 IF X=237 THKH 5310 

5240 IF X=203 THHH 5470 -./tv.-. 
5250 IF X=221 THKH 0P»(7 )="( IX+00) " :0P»( 11)= IX" :0P» 38)^ (IX) 
5260 IF X=253 THEH 0P»{ 7 )=" { IY+00) " :0P»( 11)= "lY" : 0P»C3B)= 
5270 CIl!=FC+2: GOSDB 6070 :0P»(7) (4)=CHH»(43-2*(ADAT>127) ) 
52B0 Wl= ( ADAT> 127 )*256+ADAT:*il=ABS( HI): GOSDB 8010 



•(IT)" 



MlJlf V»( ?7;2B J ^^O0T'' 
5410 IT ((X XO^tr H'M 
5420 V#iK7 : 2B)-- ' LU^' 
5^^0 XOH 7b) 

544U S7 2a)-"T,t3" 
5450 HESTOBE 8500 

5460 BEAD C*.C:IF C*X=G«C THEH V$(27 : )=C»: BETDBH: ELSE 5460 
5470 PC=PC+1+L:CIM=PC: GOSDB 6070:X^ADAT 
5430 OH Xy'64+1 GOTO 5490,5500,5510,5520 

5490 BKSTORB B600:A=1+(X iHD 56)/B:B=l+(X AHD 7):G0T0 5150 
5500 Vt(27:29)="BIT-:GOTO 6530 
5510 Vf (27: 29)= "RES- : GOTO 5530 
5520 7$(27:29)="SET" 

5530 B=(X AHD 56)/8+30+({X AHD 7)+l)*40:6OT0 5170 
6000 W2*=CHR»(H2+4e-7*{H2>9)): BETDBH 

6010 H2=IHT{W1/16):G0S0B 6000: W1$^H2$ : W2=H1-16*H2 :GOSDB 6Q00 
6020 W1$=W1*4W2*:RETDRN ^^^^ ^^^^ 

6030 H1=INT(H/256):G0S0B 6010 ^ H$=H1»: H1=W-256*W1 : GOSOB 6010 
6040 H9=H«&WU:BETDRH 
6050 BESTOBK 8700 :KODt="" 

6060 FOR 1=1 TO 14:BEAD X : KOD*=KOD»A(n!B$ ( X ) : HKXT IrBETDRH 
6070 CIH=CIH+(CIH>32767)*65536 
6 Oa D ADAT=DSH( 2+VAHPTR ( XOD$ ) . CIM ) : RETDHN 
6090 POKE VARPTB(K0D*)+4.PAGIHG:BKTDRH 
6100 «J2=OBD(Q2*)-48+7*(Q2»> -g-) :RKTORH 

6110 Q2»=Q1»( :1): GOSOB 6100 :Q1=Q2 :«2$=Q1*( 2 : ) :GOS0B 6100 

6120 Ql=16*«l+«2: BETDBH 

6130 «1$=Q»{:2):G0SDB 6110 : Q=Q1 : Ql*=(a»( 3 :): GOSDB 6110 
6140 QrQ*256+Ql:RKTDRH ..^^ 
6150 SET IHK 2:PRIHT AT 6 , 5: "A" ; :SET IHK TINTA;PRIHT ddrees: 
6160 H=PC: GOSOB 6030: PHIHT AT 6 , 13 :H»: BETORM 

6170 SET IHK 2: PBIHT AT 6 .20: "P" : : SBT IHK TIHTA:PRIHT "afilns:" 
6180 H1=PAGIHG: GOSDB 6010: PHIHT AT 6 . 27 :W1$: BETDBH 
6190 SET IHK 2: PHIHT AT 7 . 5 : "H" ; ^ SET IHK TIHTA: PRIST "yotttata:-; 
6200 PHIHT AT 7.14: "";:0H HY GOTO 6210.6220 
6210 PHIHT "ki'iBETOBH 
6220 PBIHT "be":HlTOBH 
6230 PHIHT AT 4.10:">> 

6240 OH HOD GOTO 6250.6260,6260.6260,6260.6270,6280.6280.6320,6320 
6250 PBIHT "DiBSBB <<";RETDRH 
6260 PETOBH 

6270 PHIHT " Word << 'iRETORH 
6280 PHIHT "Byte <<":RETDRH 
6290 IF ADATC32 OR ADAT>159 THKH &DAT=46 
6300 RETDBH 

6310 PBIHT AT 7 . 19: ; : IHPDT PBOHPT " Sz6«a= " : X : GOTO 3660 
6320 PHIHT Text <<":HBTDHH 
6330 PBIHT AT 23 . 2 : " " ; : BETOBH 
6340 V$=STHING*(45.32>:HET0HH 

8000 DATA B,C.D,E,H.L,(HL),A,BC.DE,HL.SP,AF.(BC),(DE).(SP).(00),(0OOO] 
8010 DftTA 0000,0000.00.HZ.Z,HC,C.PO.PK,P.M.0.1,2,3.4,5,6,7.(HL),HL 
810O DATA 11.0,71,809,1,334,24.9,24,1,23,1.36,641.13,0 
8110 DATA 33, 533. 22, 371. 1.568, 23, 9, 24, 2. 23. 2, 36,842^15,0 
8120 DATA 66,19.71,810,1,335.24,10,24.3.23.3,36,843,12.0 
8130 DATA 65,19,22.411.1,608.23.10.24,4.23.4.36,844.14.0 
8140 DATA 65.782.71.811.71.458.24,11.24.6,23,5.36,846.9,0 
6160 DATA 65,783.22.451.71.731.23,11.24,6,23.6.36.846.8.0 
8160 DATA 65.784,71.812.71,338.24.12.164.7.163,7.176,847,16.0 
3170 DATA 65,785.22.491,71,728,23,12,24.8,23,6.36,846.7.0 
8200 DATA 22 . 48 , 22 , 38 , 22 . 128 , 22 . 168 . 22 . 208 , 22 , 248 , 162 , 288 , 22 , 328 
8210 DATA 27 , 46 . 27 . 88 , 27 , 128 , 27 . 168 . 27 , 208 . 27 , 248 , 167 . 288 , 27 , 328 
8220 DATA 20.1,20,2,20.3.20,4.20.5,20,6,160.7.20.8 
8230 DATA 26 , 48 . 26 , 88 , 26 . 128 . 26 , 168 . 26 , 206 . 26 , 246 . 166 , 288 , 26 , 328 
8240 DATA 17,1,17,2.17,3.17,4,17.5,17,6,157.7,17,8 
8250 DATA 21,1,21,2,21,3,21.4,21.5,21.6.161,7.21,8 
8260 DATA 19,1.19,2,19,3,19,4,19,5,19.6,159.7,19,8 
8270 DATA 18,1.18,2,18.3.18.4,18,5.18.6.158,7,16.8 
8300 DATA 28,22,34,9.99.822.99.20,95.822,10.9.67,848,32.17 
8310 DATA 28,23,28,0.99,823.0.0.95,823.95,20,62,848.32.17 
8320 DATA 28,24,34.10.99.824,37.337,95,824,10,10.55,21,32,17 
6330 DATA 28.25,6,0.99,825,38.688.95.825.0.0.61,848.32,17 

33,456.95,626.10,11,52,21,32, 17 
8350 DATA 28.27.29.38,99,827.33,1570,95,827,0,0,56,21,32.17 
3360 DATA 28,26.34,13.99.828.4,0,96,828.10,13,54.21.32.17 
8370 DATA 28.29.1,462,99.829,5,0,95,829,0,0,63,21,32.17 
8400 DATA LD . ODT , IH , DI , EI . EXX , (X^ , CTL , DAA . POSH . HOP , BLA , RLCA 
8410 DATA RHA,RBCA.SCF,AHD,CP,OR,SOB.XOB,ADD,DKC,IHC.CALL 
8420 DATA SBC, ADC.BET, JP, JR,DJHZ ,BST , KX.POP 

8500 DATA HBG,68.RETH.e9, IHO. 70. "LD I , A" ,71 ,HETI , 77, "LD H,A" 

8510 DATA 79, mi, 86, "LD A. I" .87 , IH2 ,94 . "LD A. B", 95, BHD 

8520 DATA 103 ,RLD, ill .LDI , 160 ,CPI . 161 , IHI , 162,0DTI n 

8530 DATA 163 ,LDD, 166,CPD. 169 . IHD. 170 ,ODTD. 171 ,LDIB, 176 

6540 DATA CPIR, 177, IHIB, 178 ,OTIB, 179 ,LDDR, ie4,CPIH, 165 

6550 DATA IHDH. 186,0TDB, 187 , "Hot used'.O 

8600 DATA RLC . BBC , BL . BB . SLA , SRA , SLL , SRL 

8700 DATA 243 ,62 . 112,211 , 2 . 110. 38,0, 62 . US . 21 1 , 2 . 7'! l 



Grocmann-Eichler: A 8086/88-as mikroprocesszor 

- Data Becker - Novotrade. 357. o., 349 Ft. 
(A konyv az Intel 8086-os; illetve iAPX86-os mikropro- 
cesszorcsal^d tagjainak felhaszn^l^s^hoz, alkalmaz^isAhoz 
nyujt segfts^get. 

Bogn^r Julia :dBASE III PLUS - Sz^malk, 256 o , 
156 Ft 

(Az el6ismeretek n^tkul is j6l haszn^lhato kotet a szeies 
korben elterjedt dBASE Ml adatbdziskezelfi program to- 
v^bbfejlesztett v^ltozat^t mutatja be.) 



Bodor Tibor: A Commodore 64 programoz6s6nak 
gyakorlata III. Sz^malk. 187 o.. 137 Ft. 

(A suro^at harmadik kotete a kozvetlen eJ^r^sO - random 
vagy relaiSv - lemez^llom^nyok kezeE^s^vel foglalkozik, a 
lemezkezelfi parancsokon kfvu I kit4rv© programten/ez^si. 
adatfeldolgozasi k4rd§sekra is. Az ^llom^nvok haszn^la- 
U\ mOkod^ mintaprogramok illusztf^ljSk.) 



IBM PC DOS l-lll. - LSI ATSZ. 1005 692 Ft 
(A h^romkotetes. kimerftfi ismemtekei lartalmazb konyv 
els6 r^sze a PC DOS hasznSJatM, a m^sodik a fgl^pft^s^t 
ismerteti. a harmadik pedfg az IBM kompatfbilfs mikro- 
g4pek leghat^konyabb programfeilesztS e^zkoz^nek, a 
macro assemblernek haszn^iat^t segiti.) 



Liesert: PEEK-ek6s POKE-ok a C 64-esen - Data 
Becker - Novotrade, 1 66 o, 1 20 Ft. 
(A szerzo a g6p null^slapj^nak haszn^lat^hoz ad sok otle- 
tes tan^csot, mukod^sk^pes trukkot.) 



Babdn Gabor-Masa IstvAn: G6pi k6du programo- 
zds kezdoknek ds haiad6knak C 16 ds PLUS/4 szd- 
mit6o6pekre - Novotrade. 21 1 o., 1 29 Ft. 

(A kotet els6 resze tankonyv. melyb6l 6n^ll6an is elsajS- 
tlthat6 a g^pi kbdu programoz^s- A m^sodik resz a k6t 
g6pr6l nyujt sz^mos hasznos inform^ci6t.) 



Yoshiaka Shiari-Jun-ichi Tsujii : Mesters6ges intel- 
ligencia - Novotrade, 179 o.. 349 Ft. 

(A konyv a mesters^ges intelligencia alkalmaz^si teruletei- 
nek alapvet6 fogalmaival 6s elj^r^saival foglalkozik, vala- 
mint ^ittekinti a gyakorlati nnegval6sft^sok alapelveit.) 



Kepes Jdnos: MikroszAmftdgdpes grafika - MQ- 
szaki Kdnyvkiad6, 157., 55 Ft. 

A kotet cfme kiss6 megt§veszt6. Az plvas6 ennek alapj^n 
azt is v^rhatja, hogy grafik^val foglalkoz6 szSmftcistechniku- 
sok 6s sz^mft^stechnik^val foglalkoz6 grafikusok muveit 
mutatja be a konyv, vagy az 6 muhelytitkaikba vezet be. 
Az alcfm - Grafikai algoritmusok - m^rtobbet elSrul: 
Kepes J6nos a grafik^ban j^ratfan, de 6rdekl6d6, kfs^r- 
Ietez6 kedvQ olvas6knak frta kotet^t. 
A kdnyv egy g^ptlpushoz - a Spectrumtioi - k6tffdikr 
a $zer2(5 e g6p grafikai lehetiSsegell igyekszik kiakn^zni. 
A kotetet gondozi^ Milszaki I<6nvvkiad6 is hsmarosan 
forgalmazni kezdi a demonstr^cids programokat tartal- 
tnaz6 kazett^t" Term^szetesen Spectrumra. 
Ez a g^phez kototts^g azonban nem tOI erfis, nem koti 
meg az oIvas6 kez6t, mert a szerz6 nem kozol programlis- 
t^kat. ,,Csup5n" olyan matematikai elj^ir^sokat, algorit- 
musokat mutat be, amelyeknek segfts6g6vel konnvff 
6IIithat6k geometrikus jeliegu, de rr^jgis Idtyinyo^ raizok 
a k^pernyfin. Az elj^rSsok alapeiyeil iriB csak f9^.flv*kran 
azokat is meglehetfisen nasyvonrtlliBn. ^elizltiesen. igy 
azut^n ar otvas6nakrfS eSto^lfcriiTO mai ad a fejlor^sre: 
hogyan,^^JdMjn^^[Pv-05v rJ^i^ elflSHlt^sM a saj^t g^- 

fh^.Qz szer^^m^nk seg/ls^gel nyujtani az ofvas6knak, nem 
az^rt, hogy megkfm^ljuk (5ket a gondolkodSstdL a felesle- 
ges ..okoskod^st6f \ hanem hogy b2 egyes eijir^sok to- 
v^bbgondol^s^ra biztassunk. Kis programjainkat Com- 
modore Plus/4-esre frtuk, egyr^szt. mert a Spectrum- 
ixjlajdonosok ligyis j^ozz^juthainak a k^sz kazsttihoz, 
m^sr^sn az^rt, hogy megmuEassuk: az elj^r^sok m^s g6p- 
tipusra is ^ilrhat6k. 

Az &\s6 feje^eT, a bavazatAs lulajdonkSppen elfiszdnak ts 
tekir>thet6. a szer^fi it! a grafika 6s a matematika ossze- 
kapG&Glhat6s^Q^ThangsOiyozza. Am^sodik r6sz az^^EtSkA- 
szit^s*' qimet vFsefi ez tartalmazza egyr#sn a k6s6bbiek- 
hez s;s;uks#9«s matematikai ismereteket. a giafrkai progrs- 
mozSs alapjail. es a grafikai elameket. A matematikai 
5sszefoglal6 kissa ibmorre sikemdeit. kovetni is alaposan 
meg6rleni tal^n csak az tudja. aki mindezt lanulta mkf, 
6s az itt lefrtak csak az ism^ll6st szoEg^lj^k. Mindez azArt 
hiba, r^Ert a kotet tov^bbi r6sze gyakran ezekre isme- 
retekre ^pit A programoz^si elemek bemutat^sa viszont 
alapos 4s ktmeritfi. Innen megtudhat6. hogy iiogyan md- 
kodsk a sok gepbe mar eltoiesen be^pftett egyenes- 6s 
gbrberajzoJ6. foltbetoil6 6s szakasrkivigd algqritmus. 6s 
hogy egy grafikai programot hogyan c6]s7Br^ feJ6pftent- 
A grafikai efemeK ismertet6se v^szont ism^t csak meglehe- 
l^5se^ feluletes, ^Ital^noss6gokat fogalmaz meg 

a 



10 GRAPHICI, 1 
20 FDRI=aT03iS£TEP3 
30 DRAW . I . 0TO3 16-1, 1 99 
40 NEXT I 

50 FDRJ-0TD19eSTEP3 
60 DRAW. 0, JT0319, 19B-J 
70 NEXTJ 



A konyv harmadik r6sz6ben 
kezd6clik v6gre az „6rdemi 
munka": ennek alapj^n nricir 
b^rki kedve szerint teleraj- 
zolhatja a k6perny6t. A ter- 
jedelmes fejezet a „Szabd- 
lyos kdpek" cfmet viseli, 
g6rb6kb6l gorbeseregek- 
b6l 6s pontokb6l e!6^1lfthat6 
k6pek algoritmusait mutatja 
be. Hogy m^r egyszeru, 
egyenes szakaszok sereg6- 
b6l is milyen l^tv^nyos k^p- 
^Ilfthat6 el6, arra mutat p6l- 
d^t az 1.6s a 2. program 



osszefirk^lni, nyilv^n min- 
denki tudja, aki megfrta els6 
6r\&\\6 rajzolbprogramocs- 
k^it: sorra v^lasztunk pon- 
tokat a k6perny6n, 6s mind- 
egyiket osszekotjuk az e!6- 
z<5vel. Ez azut6n tov^bbfej- 
leszthetfi ligy, hogy a rajz 
egy I6gy vagy egy szunyog 
mozg^s^t id6zze - ezt mu- 
tatja a 3. 6s a 4. program. 




DRAW 

H= X+ V I V=T+ W : tJRAtf 1 DM. ¥ 
9« QgTU4.|^ 



[■> GRAPH] C 1,1 

■ FORI=OT03l8STEP3 

■ DRAW, I, CT060, 60T03ie- 

. e 

io. NEXT I 

P.i^ FORJ=0TO19G£TEP3 

DRAW, &, JTOee. 60TO3] 9. 19e-JTO260. 140T0 

D, J 

"V- NEXTJ 



^ - mely a konyv^ .Jnterferen- 

i,i99T02bo,i4dTo ciamini^k" c[mO alfejezete 
alapi^n k6szu!l. <iemel6sre 
6fdemes a ,,Kepek pontok- 
bdf alfei^zet «s. de erre 
r>em mutatunk be kuldn il- 
Iusztr^l6 programot, hiszen 
f«5k6nt frekl^lokkal 6s sejt- 
automat^kkal fogfalkozik. 
amifSl a BIT-LET bej^ jaac 
tobbszdr r^zistaseft 

A 4 fejei:et a kdlet Ieg6rcte- 
kaiebb resze: ,rA v6latlen 
Ic6p«i". A legegvszerubb, 
egyenes vonaldarabokb6l al- 
16 J\TkM^s\6V' kezdve eljut 
aiyan rajzok f6trehoz^s^ig, 
amelyek labirintusra, talaj- 
r6tegek egym^sra halmo- 
z6d6s6ra, tintafoltokra, vagy 
szovetmint^ra eml6keztet- 
nek. Ogy 6rezzuk, hogy in- 
fornn6ci6tartalma 6s soko!- 
dalu illusztr6ci6s felhasz- 
n6lhat6s6ga miatt 6rdemes 
ezekkel az elj6r6sokkal r6sz- 
letesebben is foglalkoznunk, 
Azt, hogy a k6perny<5t ho- 
gyan fehet v6letlenszeruen 



Lathat6, hogy nem sokban 
kuldnboznek, az elt6r6s csak 
annyi, hogy a I6gy nnozg6s6- 
n6l az egymashoz kapcso- 
I6d6 egyenes szakaszok 
- a g6p grafika» felbont6- 
k6pess6g^hez m6rve - meg- 
k6zelft(5]egugvano[yanhosz- 
Bzdak. a szunyog mozgi- 
s^n^l pedig a hossz v61et- 
lenszerQen v^ltozik. 
A k6t kis programJ^^tban 

5jL^ac i^^y^ j^^^^r^ ^agy pjyang6 
I ^|P''^n^epLJi6E6re emi6keztessen a 
^ rajz. Ezek ropte nem olyan 

cikcakkos. mint a I6gv6 
vagy a szCnyog^ - Igy a 
rd p I t itl po nto n k 6n t 
rajzoljuk meg. (S., 6. prog- 
ram). 



10 GRAPHICl , 1 
20 X=160;Y=1O 
30 DRAW, X, Y 
40 A=2*K*RND( 1 ) 
50 LDCATEX, Y 

60 V = 15*CQSt A ) *RNDt 1 ) : W= 3 5*SIN( A > 
70 IFK+V>0ANDX+V<256ANDV+W>0ANOY+ 
EMX=X+V -y^y+W iDRAWTOX, Y 
8© GOTO^e^ 



10 GRAPHICl , 1 

20 X = 1G0 :y = iaO :D = 10:H = 130 

25 Vl~10 :V2=10 

30 DRAb^, X , y 

45 yi=yi+SGN(RND( 1 )«<320-H)+H/2- 

46 IF ABS( VI )>DTHENyi=D*SGN< VI ) 

47 V2 = V2 + SGMf RNO< 1 )*(200-HJ+H/'2- 

49 IF ABS< V2>>DTHENV2=0*SGN< V2) 

50 LOCATEX, y 

60 DRAWTDX + Vl , y + V2 
65 X==X + V1 :y = Y + V2 
70 GOTO 45 





A talajr^tegek gyLjr6d6s6re 
eml^keztetfi rajz elk6szlt6s6- 
nek alapeive igen egyszeru 
-10. program. A k^pet 



^ A A. 



1^ JiF^AiaMiCi, 1. 



A mad^r ropt^bfil azut^n egy 
kis ,.sz6r6z6ssel" kialakft- 
hat6 olyan ^bra is, ami a 
majmok 6s az elmebete- 
gek rajzaira eml^keztet (7, 
program) scSt. ezzel a 
m6dszerrel tekerg6 szalagot 
is rajzolhatunk. (8. prog- 
ram). 




bJ& if ftBSEVl :iDTHENVl=[;i*5iKN[ 
m LCHiAtf >£, ^ 

130 GOTO 50 



itf *=ii4^£'aiMcn9. 171 

^? F04^i:=sfl ig 9je step** 
giQ ki=;xr r 




I a IF gip-^gj-i them jie* 

349 



7La PGKE B-L, i&B 

lie R«R-4:P0KER. liie .g^Q-i :C5 p.g)*'i t 
. Q0Td2ie 

2491 POKE fl.f l,t£6 

Sfefl R-ft+-2 POKEft. lfe«:£a'-Q+l iCtP.qjf i If 

2fia )F PEE}^^^*^^^-^^^ THEN HE rUt«N 
29^ fc-l^e* -*£m£S. It* rP»P ' i ! P. Q 1 : 
■ 0010276 



A v^letlen, a k^pernySn 
val6 bolyong^s probf^m^j^- 
ho^ tartoznak a labinntusok 
is: hogy tudunk szimilb- 
g^ppe! olyan ii^biiriniujt' '^sj- 
zofni. smely.- mfr^d^DH futftf - 
la.^. ui^n mas es-.m^rs palyat 
a ^ j ^^b^rmely kei poritja 
kcjWtt poniosan egy ul ve- 
^et - BiBZ nmcsanek bez^rt 
teriiletef, korbej^rhatb 
szei. Kepes Jinos reszle- 
tesen lelrja az algoritmust 
- s6l. az m^r az 1985 ben 
meQjelent. Etudok szenn^lyi 
szamitiSg^pre cimu konyv 
ben is szerepelt -, igy csak a 
programlist^t kozoljuk. (9, 
program). 




nem ugy 6pitjuk fel, ahogy 
a term^szetben l6trejon, va- 
gyis nem az als6, sima r^te- 
gekt6l kiindulva ,,r^ncosit- 
juk" fe(fel6 haladva, hanem 
fordftva : rajzolunk egy v^let- 
lenszeruen cikcakkos vona- 
lat a k6perny6 fels6 r6sz6n, 
6s Iefel6 haladva ezt „egyen- 
getjuk" ki. 

Ennyi [zelft6 bizony^ra el6g 
ahhoz, hogy 6rz6kelhet6 le- 
gyen, mi mindenre j6 a sz^- 
m(t6g6p v61etlensz^m-ge- 
ner^tor^nak 6s grafik^j^nak 
p^rhuzamos haszn^Iata. T6r- 
junk az 5. fejezetre, amely 
a tdrbeli kdpek megjelenf- 
t6s6vel foglalkozik! 
Mivel egy t^rbeli t^rgy sikra 
lek^pezlse nem kev6s ma- 
tematikai ismeretet ig6nyeL 
a fejezet egy elm^leti beve- 
zet6vel kezdodik. Ezzel 
ugyanaz fehet a probl6- 
m^nk: mint am it a nifcodik 
f^'jezei nriaiematikai lejte 
gei^s f<flp cs a n p -ti i f tet - 
vmk- annak. aki korabban 
ntrni faglatkozott hasonfd 
Telddaiakkal. nem so- 
kai mond. Az algaritmusok 
vi&zont sz6p 6s Mtv^nyos 
eredm^nyt adnak - bamy- 
tatja a sz^rzi5 a gorbult felu- 
letek 6rz^keltet^s4nek nn6d- 
szere^t, a test^k takar^slnak 
6s Arny6koi^s^nak megjele- 
njt6s6t. Ez ut6bbira mutat 
p6!d^t a 11 program. 



10 



10 GRAPHIC!, i 

20 DIMA(4e) ■DIMB(d0) 

3& FOR I^STD^e : A-: 1 >=eO*RND( i ) ; WEXTI 
40 G0SUB140 
50 Q-ACe?; 

ee F0RY=QT02©eSTEP4 

70 F0RI = 1T039 :B( n = ( A f I ) +A< I + i ) >/2 + 4 
G0 NEXTl 

9e F0RI-iT039: A( n-BC I ) :NEXTI 

100 At0 J=A( 0 >+d : AC40)=A(40 5+4 

I 10 GOSUDM0 

120 NEXTY 

130 STOP 

140 FORX-1 rO40 

150 LQCATECX-1 J*S. A(X-| ) 

] &G> DRAWTOXtfl, AC X ) 

170 NEXTX 

ISO RtTURN 



10 GRftPHICl, J 

2a p=i ■ Q=:00 •R=8e 
30 FDRFI=aT02*TtSTEP 03 
40 FaRKSZl-0Ta3iSTEP. 03 

S0 E = (£lNfFl )¥CDS(KS2l >+COS(FI )tCOSt.KSZl 
)+SIN(KSZI )+2)/4 

60 IFE>RND( 1 )THENDRAW P+RtSlN(FI )*CO£(KS 
ZI ) , Q+RtCOS<FI )*C0S<KS2I ) 
79 NEXTKSZI .NEXTFl 



11 
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Gomb kepzetet keiti egy 
kor alaku terulet megfelel6 
^rnyalcisaval. 

A kotet tovcibbi resze - 6-9. 
fejezet - szint^n tartalmaz 
tetszet6s iilusztr^ci6kat 6s^^ 
j6l hasznilhat6 elj^r^so-' 
kat Ezekhez m^r nem 
kozliink programlist^kat, 
mivel az itt bemutatott gra- 
fik^k egyszeruen e!6^llft- 
hatbak - vagy az6rt, mert 
nagyon konnyen g^pre vi- 
het6ek, vagy az6rt, mert a 
[egprimitivebb rajzol6prog- 
ram is tobbre k^pes e feje- 
zetek t^rricii kapcs^n, mint 
amit BASiC-b6l el6rhetunk. 
fgy a 6. fejezet, a Szim- 
matrikus mint^k" azt 
mutatja be, hogy a k6per- 
ny6t hogyan tolthetjuk fel 
azonos ^brar^szietekkel, 6s 
hogy a kulbnbbzdS feltolt^- 
sek milyen grafikai tiatSst 
efedrnanyaznek. a feltiil 

ezQnban a laheT-- 
egyS5:arubban egy olym 
rajzoloprogfamrtial oldhai6 
meg, amely k6pes a k^per- 
ny6 egy-egy r^sz^t atma- 
soini - marpedig ilyen funk- 
ci6val a legtobb rajzprog- 
ram rendelkezik. 
A 7 resz cime: Szdmi* 
t6g6ppel rajzolt k^pek. 
Itt azutan keverednek a 
grafikai es a matemaikai 
ismeretek Az elso alfejezet 
- Tollrajzok - ismet csak 
olyan kerdesekkel foglalko- 
zik, amelyek a legegyszerubb 
rajzprogrammal is megold- 
hat6k a pontonkenti es 
szakaszonkenti rajzolassal. 
Persze. nem erdektelen 
megtudni. hogy hogyan is 
mukodnek ezek a funkciok, 
de sok gyakorlati haszna 
nines. A t6nusos rajzolas 
m^r izgafmasabb, a kozel(t6 
vonalrajzQlas - kozeliTes po- 



linomokkal - viszont szinte 
tiszt^n matematika, inkcibb 
a 2. fejezetbe kiv^nkozik. 
A 8. „Motivumokb6l kd- 
pek" cfmu resz a k6p- 
z6muv6szeti kompozici6k 
megalkot^Scinak rejteimeibe 
kfv^nja bevezetni az olvas6t, 
hat oldalon Foglalkozik a 
motivumok kombin^l^s^vai, 
a kerettel, a kompozicib 
szab^lyoss^g^vat 6s a textu- 
r^val - de persze ilyen terje- 
delemben igencsak felule- 
tesen, ^ltal^noss^gokr6l 
sz6lva. 

V^gul a 9. fejezet a moz- 
g6 k^pek megalkot^s^t, a 
szdmlt6g6pes animd- 
ci6t mutatja be. Ujra egy 
izgalmas tfima. sajnos^na- 
gyon tombran. Jtteflc pfc 
Ion berwiitatva - . tte -a^rt 
mlf§( hi 3 karakiBfgfafikai6l 
a kdpemy5gdrget6sen a 
vdl6di rajzfiimek alapels- 
meiig sok minden. A be- 
mutatott elj^r^sok alapjai le- 
hetnek akcir egy jcit^kprog- 
ram animcici6j^nakis. 
Mint kiderult, a kotet nem 
egyenletes sztnvonalu Gya- 
koriak a szerkeszt6si kovet- 
kezet!ens6gek is, fgy gyak- 
ran logikatlanul kbvetikegy- 
m^st az elmeletieskedC es a 
gyakorlati k^palkotast cetz6 
reszek 

Hataimas erdeme viszont a 
kotetnek az az otletgazdag- 
sag 6s szeies l^tbkor, ahogy 
a szerzo korbej^rja ezt a 
szerteagazo temakort. Talan 
p61daprogramjaink is erze- 
keltetik, hogy nemi mate- 
matikai ismeret btrtokaban 
6s kello kfvancsisaggal mi- 
lyen Iehet6s6gei vannak a 
mikroszamft6g6pek grafi- 
kajanak - de mmdehhez 
termeszetesen ajanljuk a 
konyv elolvasasat is. 




TV-Computar j^t6k- 6s felhaszn6l6i programokat cse- 
r6ln6k, A Iegapr6bb programocska is erdekel. 
Kiss Csaba, 9443 Pet<5haza, Bart6k Bela u. 20. 

Commodore 16-os programokat cser6ln6k! Keresem 
a Mondy On The Run es a Cuthbert In the Tombs Of 
Doom C 16-on fut6 v^ltozat^t. 

Muranyi Szabolcs. 2400 Dunaujv6ros, V^ci Mih^ly u. 11 
IX/4. 

V^rom azoknak a SINCLAIR SPECTRUM 128 Kbyte-os 
g6ptulajdonosoknak a jelentkezeset akik gepkezel6si le- 
ir^ssal rendelkeznek 

Tat^r Arp^d, 8006 Szekesfehervar, Benke F. u. 8 

Commodore 128-a8 gepre es 1571-es floppyra fel- 
haszn^l6i programok - adatfeldolgozb, szovegszerkesztfl 
stb. - cser6i6hez kapcsotatot keresek. A programok k6zi- 
kbnyve, lefr^sa is 6rclekel. 
Gbmori J6zsef. 1086 Bp , Lujza u 1/b 

Primo programokat cser6lek. V6rom azok jelenTkez6s6t, 

akik g6pukhbz hardverb6v(t6st k6szitettek. 

Vars^nyi G^bor. 7500 Nagyatad. Aradi u, IX/c. IV/3 

Keresek ZX Spectrumhoz felhaszn^l6i, 6s j^t6k- 
program-lefr^sokat, terkepeket, orokelet (POKE) kbdokat 
A ..Sinclair Spectrum J^tek 6s Program l-ll-lll megvan " 
Gedo Tam^s, 11 65 Bp . Veres P. ut. 1 21 

ATARI ST tutajdonosok ismeretseg6t keresem .jntim" 
eszmecsere celj^b6l 

T6th Andras, 8800 Nagykanizsa, Berzsenyi u 1 4/A 

COMMODORE 16, PLUS/4 felhasznaloi es jatekprog 

ramokat csereiek! Markatarsak irjatok' 

Egri Imre, 5561 Bekesszentandr^s, P6r6 u 2. 

ATARI cseretarsakat keresek 

Habanyi Tamas. 8200 Veszprem, Egry u, 45/c 

C16, PLUS/4 gepre angol, nemet es orosz nyelvi okta- 
t6programok elad6k. J6tek- es felhaszn^l6i programok 
cser6je 

K6lm6n Albert, 3300 Eger, R6k6czi ut 31 111/11. Tel -uze- 
net: 143-031, 330-345 (Bp) 




^^;V- ^^^.^- 
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PROGRAMOZHATO FUNKCIOBILLENTYUK 



Sokan - 6s joggal - kifog^soljdk, hogy az ATARI 
800XL funkcidbillentyGi (HELP, START, SELECT, 
OPTION) BAStC-bSI csak nehdzkesen, PEEK fugg- 
v6nnyel haszndlhat6k. 

Az aldbbi rutin Iehet5v6 teszi, hogy nyolc progra- 
mozhatd billentyut haszn^ljunk. 

A=USR(37246,Fx,ADR(K$)XEN(K$)) 

utasit^ssal adhatjuk meg a funkci6t 

Fx helydre 1-8 kozti szHmot kell irni : 

1 - HELP 

2 - START 

3 - SELECT 
4 -OPTION 

5 - SHIFT+HELP 

6 - SHIFT+START 

7 - SHIFT+SELECT 

8 - SHfFT+OPTION 

K$ tartalmazza a kfv^nt szoveget; ez b^rmi lehet, az itt 
levo karakterek a tov^bbiakban ugy viselkednek. mintha a 
bfllentyuzetr6l irn^nk be azokat. Ha a stringet a CHR$ 
(155) karakterrel z^rjuk, azonnal v6grehajt6d6 utasit^st 
kapunk. 

PL: K$="GRAPHIC$ 0":Kt(1 1 ) = CHR$(1 55) :A=USR 
(37246.3,ADR(K$)J1) 

Ezek utan a SELECT gomb lenyomasakor - parancs m6d- 
ban - azonnal torlodik a k^pernyo es a 0. grafikai uzem- 
m6d jon fetre 



Szdmtalan alkalmazisi lehetosege van a billentyuk- 
nek. csak arra ugyeljunk, hogy a string nem lehet hosszabb, 
mint 32 karakter ! 

0 hosszusagu stringet frva a billentyut ,.kikapcsolhatjuk". 
Specidlis lehetoseg a CONTROL+HELP. Ez igazi help- 
funkci6! Megnyomcisakor tetsz6leges BASIC program- 
sorra ugorhatunk az eredeti programfutast megszakftval 
A=USR (37321, sorsz^m) utasit^ssal tolthetjuk be a kfv^nt 
sorszcimot att6l kezdve a CTRL+HELP gombot b^rmikor 
lenyomva a megadott sorn^l folytat6dik a v^grehajt^s. 
Ez lenyegeben 'felhaszn^l6i BREAK', de lehet seg^din- 
form^ci6k ker^se, folytat^s es abbahagy^s vez^rl6je stb. 
32767-n6l nagyobb sz^mot irva a billentyu hat^s^t meg- 
szuntethetjuk. 

Arra kell ugyelnunk, hogy a gomb ^Ital kiv^ltott ugr^s az 
esetleges TRAP sorsz^mot torli. 

Figyelem! Ez a rutin RESET ut^n sem torl6dik, teh^t el- 
maradhat az eddigi POKE 106,144. stb Mondanom se 
kell. hogy az eddig ismertetett rutinokkal egyutt haszn^l- 
hat6, igy most mar azok is "RESET-biztosak". 

Ellenorz^s: 

RESTORE;A=0:FOR 1 = 1 TO 260:READ B:A=A+B: 
NEXT I:? A 

A kepernyon 30535-nek kell megjelennie 
Rieth Jozsef 
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HA CRDEKLI a SZAMfTdGep - FOLtfTLEWOL JOJJON ELI 
DECEMBER 12-13-AN 9-TOL ESTE 7-IG 

A MOSZAKI EGYETEM kOzponti EpOletCnek aulAjAban 

BUDAPEST XI., MOEGYETEM RAKPART 3. 



A lavalyi tavalve1<^tti sikeren fel- 
buzdulva id^n is megrendezzQk 6v 
v^gi zsibvds trunkal Tavaly voltunk 
vagy otezren, \66n megc^lozzuk bz 
5001 -et Az 6001 *ik fizetovend§- 
qmt 60 V kari^c^otiyi BITLET-ko- 
vfirraf jutalmauuk I 
A h&lyszJn a budapeslEeknek kozis- 
men, a vid^kieknek segfts^gk^ppen: 
A Keletitfi! a 7-es busz. a Nyugatixiil 
a 12-es busz, a D6lit6! a 18-as villa- 
mos, az Engels t6ri buszp5lyaudvart6l 
az l-es busz a legjobb kozleked^si 
eszkoz. Aut6soknak el6melegftett 
parkolbhelyekl 

{Villalk026 kedvQek johetnek futva, 
tjszva, esetleg gyalog.) 
A KAPUNAL VALASZTEKOS MO- 
DORO JEGYSZEDOINKNEL DIA- 
KOK es KATONAK 15. MASOK 25 
FORINieRT VEHETNEK BEL£pOT. 

PROGRAMCSEREBERE 

jd§n ism^t 50 g6phelyet ^llftunk 
foL Szokds szerint adjuk a t6v6t 6s a 
csatlakoz^si lehetfis^get A tobbit 
onnek kell hoznia! Egy asztal egy 
6fira 30 forint. A b^rletek e\6- 
jegyezhet(5k. Aki december 7-ig be- 
fizeti a b^rleti dijat. az 20%-kal keve- 
sebbet f izet ! 

A helyfoglal^st telefonon is, szem^lye- 
sen is, post^n is lebonyolfthatj^k.ACso- 
konai Muvel6d6si H^zban reggel 9- 
tfil este 9-ig v^rja jelentkez^suket. 
vagy hfv^sukat Sperber UszlA. 

Tetefonok: 690-495 vagy 892-240. 
Postacfm: Csokonai MGvel5d6si 
H6z 11 53 Budapest XV., Edtvos u. 
64-66. 



PROGRAMBORZE 

Aki nem csereberelni akar, hanem 
saj^t k6szit6sij programjait hardver 
eszkozeit kfv^nja ^rusftani. az kulon 
meg^llapod^st kothet a rendez6kkel. 
Az eladni kfvint ^ru 6rt6k6t6L a 
szuks^ges helytfil, technikStbl fijggS 
b6rleti dfjat keil fizetnie. 

hirdet£sek 

Id^n is rendelkez6sukre dillnak a 
helyszfnen hirdet6si eszkozeink. Cse- 
reaj^ntatok, sz^mft6g6pes bar^tok 
keres6s6re vonatkoz6 koziem^nyek 
k6zz6t6tele jutcinyos ^ron, egy6b hir- 
det^sek, m^solatok a trip!6j^6rt. 
HANGOS REKLAM: 10 forint^rt 
tobbszbr bemondjuk az on Altai meg- 
adott szoveget 

R0PC£DULA: A4-es laponk6nt 2 
forint6rt sokszorosftjuk az on Altai 
megadott szoveget. Esetleg a terjesz- 
t^sben is segftunk. 

bemutatOk 

Err6l egyel6re keveset arulunk el, 
mert keveset tudunk. Id6n is lesz 
nagym^retu kivetft6, amire bizonnyal 
folkerul az Amiga, a Macintosh, az 
Atari ST., az Enterprise k^pe. Sze- 
retnAnk bemutatni l6zerprintert,tor- 
vezoi munkadiiomdst, az IBM 
csalAd egyik-mAsik tagjAt. Otieteket, 
bemutatAsra Ardennes programokat, 
term^keket sztvesen fogadunk. K6r- 
juk, hogyotleteikkel keress6kmeg 
telefonon Angyalosi L^5zl6t. 
(408-603) 



PROFIKNAK 

Id6n kul5n meghlvAt kuldunk egy 
sor IBM kompatlbilis g6ppel ren- 
deikezS cdgnek. A „Profi szek^ 
ci6"-ban remdnyeink szerint liz- 
Ietk5t4sekre is sor keriil majd. 
Term6szetesen a megkulAnboz- 
tetis nem Jelenti azt, hogy az 
amatSrAket elzdrnfink az IBM 
kompatlbilis, 6s m6s professzlo- 
ndlis g6pekre kdszult szoftverek, 
hardverek bemutat6jAt6l. 

egyebek 

Egyebek kozt ott lesznek a BIT- 
LET szaktanAcsad6i, a bemutat6kon 
alkalmuk lesz kArdezni a kulonbozS 
gApekhez Art6 szakemberekt6L lesz 
JATCKSAROK, ahol sok^sok szA- 
m(t6g6pes jAt6k kezelAsAre vonatkozd 
tanAccsal lAtjAk majd el az 6rdek- 
I<5d6ket. 

Es aki nem vette meg m6g szAmi- 
t6g6pes bardtai, csalddtagjai r6- 
szire a kar^csonyi ajdnddkot, an- 
nak rendelkez6s6re Allnak a kii- 
I5nb5z6 cAgek konyveket, prog- 
ramokat 6rusft6 pavilonjail 

rendezOk, 

VEDNOKOK 

Azidei BIT-LET KarAcsony rende^^je a 
Csokonai MOt^elodtei HAz ^ a 
BIT- LET Szerkem586ge, v^dnoke 
az AGROBANK RT., a KISZ KBp, 
a NOVOTRADE RT., a SZAMALK, 
3 SZUV COMPUTER M.. az 
APISZ, Ha \6\ erzik magukat 6ket 
dicserj^k, ha rosszul. akkor a ren- 
dez^ket szidjAk! 



IzUiTinKIHIMI MEIUIUT Itt7 NflVEVItK 



LESZ-E VALAHA fS REND? 



A sorvezet6 Iegut6bbi nekifut^sa (1987. m^rcius-julius) 
alkalm^bdl a „rendez6snek" volt a legjelentfisebb vissz- 
hangja. Ketten(l) is reag^ltak mag^ra a Sorvezet6re, s6x 
az ott kitflzott - nem egyszeru - feladatra (mely egyben 
a NYERO p^ly^zat feladat is volt) 21 MEGOLDAS ^rkezett 
(melyek kozul 12 helyes volt). Ezekrfil rfezletesebben a 
pily^zat 6rt6kel6s6n6l olvashatnak. 

ld6zzukfelel5sz6rafeladatot: N darab elemet (sz^mot, 
nevetstb.) kell nagys^g szerint sorbarendezni. Az id6zett 
sz^mban (1 987, junius25.) szerepelt k6t un. lassO megold^s. 
A relatfv maximum keres6s, illetve a rokon ,.bubor6k" 
m6dszer muveletig^nye egyar^int N*N/2. azaz nagyj^ib6l 
ennyi alkalommal kell osszehasonlft^st v^geznunk a ren- 
dez^s sor^n. Ez ezer adat eset^n kozel f^lmilli6 hasontlt^s, 
ami m^r percekig is eltarthat. 

Ugyanebben a r^szben el6k6szitettunk ket jbval gyorsabb 
v^ltozatot. A felez^ssel t6rt6n6 beszur^s (3.b. megold^s), 
illetve az osszefesul^s (4. program) egyar^nt ^Italdtnosft- 
hat6 olyan programme, ami ,,csak" N*LOG(N) osszeha- 
sonlit^st v^gez mindossze. Ez ezer adatnal peld^ul f6l- 
milli6 helyett mindossze tizezer (otvenedreszel) muvelet. 
Ezt tuztuk ki feladatuL egy egyszerubb speci^lis esetben 
(N = 128). Kaj^ri G^bor (Cegl6d) az osszef^sul^sen ala- 
pul6 programj^n kfvul egy m^sik rendez6-programot is 
bekuldott mely sok esetben kb. k6tszer gyorsabbnak 
Icitszik (s mindenesetre rovidebb) az osszef^sulesen ala- 
pul6 programn^i. Ez a „sok esetben" kb. azt jelentt, hogy 
ha az adatok el^gg^ ossze vannak keverve (pL a program- 
ban Idthatb v6letlenOI el6^llftott sorozat ilyen), akkor val6- 
ban gyors. Azonban ha pi. kipr^b^ljuk a programot egy 100 
hosszu 1-0 sorozattaL akkor a fut^si id6 kb. ket es f6lszer 
akkora lesz, mint 100 v^letlen adatra (18 mcisodperc he- 
lyett 46 m^sodperc). A program list^jcit trivi^lis m6dosi- 
t^sokkal kozoljuk. 

fg^retunkhoz hfven igyekszunk valami apr6sciggal hono- 
rllni olvas6nk nem jelent^ktelen f^radoz^s^t: magam r^- 
sz6rc5l szfvesen megkuldom az ^hftott LovSsz-G^cs: Algo- 
ritmusok c. konyv^t (melyet a kozelmultban adott ujra ki 
a Muszaki K6nyvkiad6), mcisr^szt pedig term^szetesen 
r^szt vesz a NYERO p^ly^zat sorsol^Scin. 
Cegl^di baritunk Ievel6ben el^g sokat foglalkozik a kony- 
vekkel. Ehhez kapcsolddva adn^k hfrt egy Ojabb j6 ki- 
adv^nyr6l. Az OMIKK jelentette meg a ,,Sz^mft^stechnika 
kdz^pfokon" cimu munkcit. Tobb mint tiz oldal foglalko- 
zik a rendez^sekkel, elmeleti kerd^sekkel is, 6s az algo- 
ritmusok verbciiis leir^sa is szerepel. Ugyancsak a kozel- 
j6v6ben jelenik meg E. Knuth: A programoz^s mOv^szete 
c. muve a Muszaki Kiad6n^iL ami hasonl6 k^rdesek alap- 
konyv^nek tekinthet6. 

A RENDEZHET0S£GRfiL 

Mostani alkalommal nem annyira a rendez^s mik6ntjer6l 
lenne sz6, inkcibb a rendezhet6s6gr6L Bizony, nem mag^- 
t6l §rtet6d6, hogy egy halmaz (tok^letesen) rendezhetS! 
Az eddig t^rgyalt esetekben olyan (j6l m6rhet6) szem- 
pontok szerint kellett rangsoroini, hogy k6x dolog ossze- 
hasonlft^s^val egy^rtelmuen eldonthetS volt a koztuk 
i6v6 rel^ci6 «,), vagy =). M^r a testmagassSg is olyan, 
hogy a m6r6s (osszehasonlit^s) eredm^nye sok mindentfil 
fugghet (kihuzza-e mag^t faradt-e stb.). IVI§g sokkal in- 
k^bb ilyen pdld^uJ a sportversenyek terulete. Mikor mer- 
jCik kijelenteni, hogy egy sportol6 (egy csapat) jobb a m^- 
sikn^l? Hi^ba veri meg ellenfel^t egyszer, ha legkozelebb 
/evansot vesz a mSsikI Figyelembe vegyuk-e, hogy az 



egyik eredm^ny fol^nyesebb volt, mint a m^sik? Vagy mit 
kezdhetunk avval a szitu^ci6val, amikor A legyfizi B-t, 
B diadalmaskodik C felett, 6s A kikap C-X61. Melyikuk a 
legjoblj, illetve a legrosszabb? 

Sokspon^gban hosszC fd6 atattalakull ki a iegjobbak rang- 
sorolSsfinak mtkdnijs. Gyakran a sport^g legnagyobb ver- 
senye (olimpia. VB) az alapja egy erSsorrendnek, Ez nyit- 
v^n fugg a szerencs^t^SI (egyszeri formaid^zft^s. kies^ses 
rendszern^l sz^mit a sorsol^s stb ). VaJamivel jobb a pant- 
verseny: sok verseny eredm^nyiSt pontozz^k. a pom- 
sz^mok dssiege ddnt. Ennek h^tr^nya. hogy aki vatami 
miatt kevesebbszer mdul. az hStr^nyban van. 
K6t sport^gat emeln4k ki. els6sorban a sakkoi (Elt5-poo- 
tok), mSsf^szt a teniszt (ATP-lista) Nem ismerek m^s le- 
fuletet (persze eitSI lehet). ahol ennyire kdvetkezetesen 
tort^nna a rangsami^s. Mindk^t rendszer ,,folyamaios 
illanddan a megel6z6 Ifstit mddosftj^k az 6\3bb eredm^- 
nyek alapj^n. Sakkban sokkel statikusabban, azaz hiSba 
veri meg valaki az addig ^ten ^\\6l ettOl esak emelkedik. 
de nem lesz rdgton eisfi! Minden versenyz6hoz minden 
id6pontbsn hoTiA van rendelve egy pontszSm, Ez©k alap^ 
j^n minden versenynek van egy ^rt^ke (rtiin^J tdbb j6 
j^tekos vesz r^szt. ann^E magasabb). es aszerim kap (vagy 
vesz 1 0 pontokat rninden r^sztvevC - helyez^se (gyfizel- 
mefnek szSma) szerint Ily m6don szmte minden ..esem^ny" 
ut^n azonnal k^sz az lista. Ezen zsenidlis rendszer tehdt 
m^g arra is tekintettel van. milyen korulm^nyek kdzott 
(milyert erCs versenyen) szQIeiik egy eredm^ny M^g 
egyszer bangsC/lyozziik. hogy nagyon erfis szerepe van a 
mullnak: egy ifju ustkosnek az i*lmezfiny sok tagj^t kell 
megvernie. hogy az els^k koz^ keruljon. Mindenesetre 
nem meglepS. hogy £l6 Arp^d professzor - ak« a Eakkozt!ik 
rangsorolSs^nak rendszer^t krdolgozta -. matematikusk^nt 
ismert hiszen efm^letileg nagyon j6t megalapozott 
rendszert afkoiotl - de statikuss^ga miatt jgaz^b6l csak 
sakkra idi^^lis. 

A tenis^ezfikn^! is Eekintettef vannak r^gebbi eredmenyek* 
re, de kev^sb^. Erre a sport^gra ugyanis sokkal jellemz6bb 
a hirtelen berobban^s (McEnroe, Becker stb.) Minden 
nagyobb verseny^rt lehet ponTokat kapni (ha elol v^gez 
az \\\Bl6). ligyelembe veszik. ki hany versenyen indult. 
n^zik a gy6zelmek/vereB§g0k ar^ny^t stb. El^g banyolult 



Q01H INPUT N 

ISS FOR I-l\a NtA(I>-INT(10a*RND<0)>tNEX 

Jie FOR I-l TD Ni PRINT A<I),iNE)tTI 
iraoa REM *** GVaRSRENDEZO *** 
1IS9B P-B 

X^hB F(IB)-liL(fl>-N 
HB7B F-F<P)iL"-L<P) 

ISIS QOBUB I2IB1REM FELOS2TO HIVA9A 
11411 F*I 

]i5e JF L>F THEN 1090 
1160 IF P>-1 THEN HS7a 

11% FOR t-1 TO NiPRINT A(I),iNEXT I 

ii?S FELOSZTO BZUBRUTIN ♦#» 

iIsS K-^NTTVF+^^)/2)IM-A'(K) ^ , , , 
1230 IF f^flXH THEN IF K-L THEN I-I+USO 

1240^ IF A<J)>-M THEN IF a>-F THEN J-J-liB 

OTO 1240 ^ 

125e IF I>-J THEN 1280 
12A0 C-A(I>i A(I)-A(J) I A<J>-C 
12TB I-I+llJ-J-I 
llse IF K-J THEN 1230 
12?S IF lOF THEN 1330 
1300 IF L<-F+l THEN^1320 
1310 C-A<I) I A*I)-AtK) I A(K>-C 
1 3'2H 1*1 + 1 

1330 RETURN I R£f1 ViaSXATERES A FEUOSlTOROL 



osszeSllftani a rangsort. jel!emz6, hogy m^ir sok^vvel ez- 
eifitt is szSnnit6g6ppel v^geztek (pedig akkor ez m6g nem 
volt k6telez6 divat). 

MIKOR JO EGY RANGSOR7 

Ezek ut^n n6zzuk meg, hogy mikor \6 egy rangsor? Elemi 
kovetelm^ny, hogy ha A legyfizte B-t. akkor el6zze is meg. 
De mi van, ha A h^romszor nyert B pedig k6t alkalommal? 
Erre az6rt nyugodtan r^mondhatjuk, hogy A (valamivei) 
jobb. Mit mondjunk, ha mindketten 2-2 izben gyfiztek? 
Nyugodtan ^llithatjuk, hogy (nagyj^b6l) egyformSk, dont- 
son a m^sok elleni m^rleguk. Persze a holtversenyt nem 
kell kiz^rni, csak ne vigyuk tulz^sba I Sajnos a fenti A-B-C 
korbeverSs mindenk^ppen ellentmond^st eredm^nyez a 
list^ban. Nem szerencs6s ilyenkor azt mondani, hogy fik 
„egyform^k". Gondoljunk arra, hogy az osszes eredm^ny 
alapjdn A az els6, B a hetedik, C a nyolcadik. Ha a „C 
pedig megverte A-t"ellentmond^st A,B,C egyformascig^val 
pr6bilnink feloldani, akkor hozz^juk kellene csapni a 
koztuk I6v6 6t versenyzfit: 1-8-ig mindenki egyforma! 
Ez^rt kell csfnj^n b^nni a holtversennyel. 
Ezek alapj^n tal^n nem meglepfi, hogy javasfom tok^letes- 
nek mondani azt a rangsort ami nem tartalmaz ^ellent- 
mondcist". Persze ez ^Itai^ban lehetetlen: azok a frSnya 
jit^kosok osszevissza ingadoznak formailag. Mondjuk 
ink4bb azt hogy egy lista ann^l jobb. min^l kevesebb az 
ellentmond^s. Erdemes egy picit elgondolkodni azon. ho- 
gyan (milyen algoritmus szerint) lehetne sorbarendezni 
versenyz6ket. 

M6g csak annyit, hogy n6h^ny ilyen m6dszer kozul az 
egyikkel megvizsg^ltam (annak idej^n) az 1979. 6vi 
ATP ranglist^t. Az ujs^gokban kozolt list^ban hemzsegtek 
az ellentmond^sok, persze ez f6leg a mult f igyelembe v6tele: 
McEnroe 79-ben mcir rendesen verte Connorst, de el6z<5 
^vben m6g sehoi sem I6v6n, mogotte voltl 
Ink^bb a m6rk6z6sek eredm^nyeit boncoigattam, 6s a 
k6vetkez6 ad6dott: N jefenti, hogy az ATP lista els6 h^iny 
ember^nek m6rk(5z6seit vettem figyelembe. 
jdt6kos(N) 6 8 10 12 14 20 

m6rkaz6s N(N-1)/2 15 28 45 66 91 190 
ellentmond^sok 1 1 4 7 11 19 

Ha ezek ut^n valaki erkolcstelen bund^z6knak tartja a 
profik szfne-jav^t azt megnyugtatom, hogy RND-vel ge- 
ner^lt ,,m6rk6z6sek" eset6n sokszor ennyi elientmond^st 
lehet csinilni. 

KOVETKEZETLEN IZLESONK 

Arra, hogy nemcsak a teniszvil^g „kovetkezetlen". hanem 
p6ld^ul a kedves olvas6 is, hadd mondjak egy p^r 6ve igen 
n^pszeru p^ld^t. Gondoljunk n^h^ny (N) gyumolcsre. 
K6pezzunk ezek kozul minden p^rt (N*(N — 1)/2 darab), 
6s mondjunk v6lem6nyt minden p^rr6l: melyiket kedveljuk 
jobban. Ha nem figyelunk, hanem kiz^r6lag az eml^keinkre, 
az izl^sunkre t^maszkodunk, akkor m^r N = 12-16 eset^n 
ellentmondisba keveredunk N = 25 eset^n kiv6l6 eredm^ny. 
ha valaki tfzn6l kevesebbet hibcizik! Term^szetesen lehet 
„csalni": magamban sorbacillftom a dolgokat, 6s mindig 
ennek megfelel6en mondok v6lem6nyt... 

A REND IS RENDEZHETETLEN 

V6gul szerepeljen egy p6lda, hogy nemcsak a versenyz6k 
formaingadoz^sa felelfis a rendetlens6g6rt. Tekintsunk 
9 GO j6t6kost jelentfis tud^skul6nbs6ggel. A GO egyik 
f6 vonzereje, hogy egy jobb jdt6kos szinte biztosan megver 
egy rosszabbat teh6t feltehetjuk, hogy a 9 versenyz6nk 
szinte biztosan rangsorolhat6. 6s senki nem k6pes meg- 
verni el6tte 6II6t 

Csin^ljunk hdrom csapatotbel6luk a k6vetkez6k6ppen: 

1. csapat 1 . (legjobb), 6., 8. 

2. csapat 3., 5 7. 

3. csapat 2.4.9. (utofs6) 

A h^rom c^sapai korm§rk5z©st jitsztk, melynek sor^n mm- 
den Gsapattag j^tszik sz ellenf^! mindhfirom V0rsenyz(5j6- 
vbL Mi les^ vajon az eredm6nyek alapjan a csapatok sor- 
rendje? L^thatjuk tehat hogy hi^ba leremiunk rendet az 
egy6nekn6l, csopoftokesei^n mit minden Felboruihat' 

Torok Turuf 
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NYERO nevG egyfordul6s pAlydzatunkra (rendez^s osszefd* 
sul^ssel) 21 megoldds drkezett. Ezek kozul ndhdny hifods, 
tobben pedig nam 4 kitGzdtt feladatot oldottdk meg (azaz 
nem a kdt rendezett sorozat dsszeftisiil^sdn alapulb progra- 
mot frtak, vagy pedig azon alapul6, de nem eldg gyors prog- 
ramot). 

A helyes megold^s az, hogy eldszor a szomsz^dos szdmpdro- 
kat rakjuk helyes sorrendbe, majd a szomszddos pArok 
ds8zef6sul68dvel rendezett n^gyeseket hozunk Idtre, ezutdn 
a szomszddos ndgyesek dsszef^suldsdvel rendezett nyolca- 
sokat csindlunk,,.., vdgiil a rendezett sorozatot megkapjuk a 
sorozat k6t fet^nek (ahol a felsd fele lehet hogy kisebb. mint 
az als6) az dsszef6sul6s6b6l. fgy N adat esetdn osszesen kb. 
3^N^LOG{N)688zehasonlltd5tkellcsindlnunk, tehdt a prog- 
ram bizonyos drtelemben a Iehet6 leggyorsabb lesz, ugyanis 
N^LOG(N) osszehasonlftdsra mindfg sziiksdg van, ahogyan 
azt Tdrdk Turul is frja a Sorvezet5ben. 

12 helyesen megfejt6nk kozott a nyeremdnyeket a BIT-LET 
Kar6csonyon, dec. 12-4n du. 4 drakor sorsoljuk ki. 
A MEGFEJTOK: Hernyik Andres, Szentes; Kajtfri Gdbor, 
Cegidd; dr. Kecskemdtl Ldszl6, Nagykfirds; Makula Tibor, 
Orosh6za; ifj. Nagy B6la, Esztergom; Nagy Btfia, Gyula; 
Pakal Tiber, Szolnok; Szalkai Istvdn, Devecser; SzilvM 
Margit, Mezdkovesd; Timk6 Attiia, Budapest; Urbdn P^tar, 
Budapest; Vindics latvdn, Mecseknddasd. 
Megjegyezzuk, hogy Pakai Tiboron kfvul mindenki 29f&N 
ndhdny) memdridt haszndlt, egyedul 6 tudta a feladatot 
1.6 (+ ndhdny) mem6ri6val megoldani. 
Mi Szilvdsl Margit programjAt k5z5litikr mely Com- 
modore 64-re frddott, de C 16-on is, sSt kisebb vdltoztatdsok- 
kal bdrmilyen g^pen futtathat6. A program m6g kicsit gyor- 
sfthatd, ha az A ds B tombok helyett egy A(N,1) tombot 
haszndlunk, s egyszer a nulladik szintrOI fdsuliink ossze az 
els6re, majd az e\e6r6\ a nuiladikra stb. A program az elejdn 
a pdrokat nem az dsszef6sul6 eljdrds segfts^gdvel rendezi, 
mert fgy gyorsabb. A program sebess^ge 10 szdm esetdn 
1.6 m^sodperc, 100 sz&m eset^n 29.5 mdsodperc, 1000 szdm 
esetdn 7 perc 16 mdsodperc, 

IQ iREn^**^*********^ ****** 

20 REM* RENDEZO « 

30 REH********************* 
40 BOTOITO 

50 REM***** FESULES ***** 
60 I«Mlt J-M2iK-l 

70 IF A<I>>A<J> THEN B<K> -A< J> a J>J+1 iGQTD 90 
ee B<K>»A(I>iI-I+l 

90 K-K+liIF KMl+Nl AND J<M2+N2 THEN 70 

100 IF I>«M1+N1 AND J>-M2+N2 THEN 130 

110 IF I>«M1+N1 TIHEN L-M2+N2- J b FOR X-0 TD LiB(K+X>- 

A(J+X>iMEXT XiGOTO 130 
120 L-Ml+Nl-IiFOR X-0 TO Li B (K+X> -A ( I+X) i NEXT X 
130 FOR I-Ml TO M1+N1+N2-1 
140 A(I)"B<I-ni+l> 
150 NEXT I 
160 RETURN 
170 INPUT N 
180 DIM A(N-(-l> ,B(N-i-l) 

190 FOR I-l TO NiA(I)-INT(RND(l>*1000) iPRINT A(I>,e 

NEXT I a PR I NT 
200 AA-TIiIF N«l THEN 380 
210 FOR I-l TO INT (N/2) *2 STEP 2 

220 IF A(I)>A(I+1> THEN B-A ( I ) t A ( I ) -A t I+l ) i A < I+l >-B 

230 NEXT I 

240 LL-lBl-2 

250 IF N<-I THEN 270 

260 LL«LL+li I-2*lBQ0Ta 250 

270 LB"1 

280 Fro KK"1 TO LL-1 
290 L0*2*L0 

300 FOR T-1 TO N STEP 2«L0 
310 M1-TIN1-L0 

320 M2-T+L0iN2-(L0+N-M2+l*ABS<L0-N+M2-l) >/2 

330 IF N2<-0 THEN 350 

340 B08UB 50 

350 NEXT T 

360 NEXT KK 

370 AA-TI-AA 

380 FOR I-l TO Ni PRINT A<I),iNEXT I ■ PRINT 

390 PRINT AA/60; " SEC" 

END 
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ATARI NYER0 

A pily&zaton mhh mint 200-aii Induftak, T39-m kDldtdk mlitdhArom feladtttra „Mm tslf«nn mmm^* 
tnogolddst. Miv#l a 139*3 megoldAat r<sxletos«n vAgigbogariuni reifidnyt^teiiul nagy fefladatot 
^alantene, ezArt a sorsoidd, moly a BIT- LET Kardcsonyon^ dae. t2-dit dy< 4 6rakor laaz, Ctgy zajlik la, 
ho9v a 139 pdlyAiatb6l kihaxunk agyat, a a helyazlnan vAgaizilk al a r^axJataa ki«rt4kat4at 
lia a 3 magoldds valamalvlka rasai, akkor a|ra htoink. 
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A 2. FELADAT 



MEGOLDASA 



A feladat az volt, hogy egy olyan prog- 
ramot frjunk, maty az ismertetett egy- 
szemdlyes jdtdkot helyesen v^gigjdtssza. 
Az itt kdzdit program az ENTERPRISE 
IS-BASIC-j^ben fr6dott. 
A program rdvid lelrtfsa: 
Ha jdtsszuk a j6tdkot egy darabig, ha- 
mar megfigyelhetjuk, hogy a feladat 
teijesft^se k^t r6szb6l 611: 
• ei6szdr azt kell el^rniink, hogy a vlld- 
gos 6s sdtdt korongok vdltakozva ie- 
gyenek. s a bal sz6len mdr vildgos korong 
legyen (vagy a bal sz6len egy Ores hely, 
s mellette egy vildgos korong), 

Innen pedig az eddig csindltaknak 
majdnem pontosan a fordftottjdval el6r- 
hetjijk. hogy minden a helydre keriiljon. 
A program ezen az elven mGkddik, 
« m6g haszndtja a kdvetkezff 6szrev6- 
telt: 

Tegyuk fel, hogy az el6szdr megkivdnt 
helyzetet egy eggyel kisebb m^retG fel- 
adatra mAr megoldottuk (a belso N-1 
sdt6t 6s a belsd N-1 vil6gos korong in6r 
megfeielden vdltakozva van). Innen az 
N m6retG feladatra megkfvdnt helyzetet 
m6r egy egyszerG I6p6ssel 6s egy egy- 
szerG, ciklussat megszervezheto ugr6s- 
sorozattal el6rhetjuk - csak N p6ros 
vagy p6ratlan volt6t6l fuggoen kell egy 
picit mdst csindlni. 
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A j6t6k t6bl6j6t a T tombben t6roljuk 
Az UGRAS nevG elj6r6s a POZ helyen 
I6v6 koronggal I6p vagy ugrik a meg- 
felel6 ir6nyba (az irdnyt a POZ he- 
lyen I6v6 korong szfne hat6rozza meg), 
annak megfelel6en, hogy hoi van az 
ures hely. (Az algoritmus gondoskodik 
r6la, hogy az illet6 koronggal lehessen 
I6pnl, fgy Itt vizsg6lat nem kell.) A KIIR 
elj6r6s kifrja a t6bla pillanatnyi helyze- 
t6t, ezt minden I6p6s ut6n meghfvjuk. 
A BEFELE rekurzfvelj6r6s gondoskodik 
az e16bb emiftett elsd f6ztsr6l, M = 1 
eset6n (1 vilSgos, 1 sot6t korong) a 
feladat egyszerG, egy6bk6nt eldszdr 
meg kell oldani M~1-re. majd a szabad 
sz6ls6vel (melynek helye a koz6ptdl 
M mezdre van M p6ross6g6t6l fuggd 
ir6nyban) kell egyet I6pni, s ezut6n a 
mdsik szfn bdbuival ugrani egyet-egyet, 
A KIFELE elj6r6s hasonlft a BEFELE- 
hez, csak ez a mdsodtk f6zis v6grehaj- 
t6s6r6l gondoskodik. 
Ezutdn a fdprogram roppant egyszerG 
(s strukturdit programokn6l ez fgy van 
rendj6n), csak a kezd66llapotot kell 
l6trehozni 6s kifrni, majd meghfvni egy- 
m6sut6na BEFELE 6s KIFELE elj6r6so> 
kat. 

Aki most tat6lkozik eldszdr rekurzfv el- 
j6r6shfv6ssaK annak 6rdemes a program 
fut6s6t pi. N=4-re v6gigk6vetni. 



4. FELADAT: 
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LfiT I IG^- r <PG? > 

LFT UtS- 2+ C T ( Pn 7 ^ r T [3 } =--^0 ) 
I. FT T <Pn2:^-lJr5#FIG) -FIR 
CALL KIIR 
FNU OFF 

UEF KTIR 

FOR J-1 IG 2frW+l 

PRINT St (T (J )+2s 1 <.J) -1-2) ; 

NEXT J 

PRINT 
END DFF 
I 

DBF EEiFELE(M) 
IF M=t THEN 

CALL UGRAS <N> 
CALL UGRAS <N+2> 
FL SF 

LALL BEFELF(M-1> 

1 ET PAR=2* ( H <>2* I N T ( M ' 2 > ) 1 

LET KP=N+1.^M*PAR 

CALL UGRAS CKP) 

FOR 1-1 TO M 

CAL L UGRAB ( KP- i *2*FAR ) 

NEXT 1 
END IF 
END DFF 
I 

DPF KIFELE <M) 
IF M-l THEN 

CALL UGRAS (N+S ) 
EL 3b 

LET PAR--^2K (M-2# TNT CM /2) J +1 
LFT KP=N+ 1 f ( Ml ) *FAR 
CALL UGRAS <KP) 

FUR rn N^ 1 

CALL UGRAS (KP-T*2*PAR) 
NEXT I 

CALL KIFELE <M-1 > 

END ir 

END DFF 

FUR 1^1 "TU N 

LET ] a)-i 
L K [ T ( I+N+t ) i 
NEXT I 

Lr r T (N-M ) -0 
CALL LilR 
CALL BEFELE(N) 
CALL t"JFELE(M> 
END 



A feladat szovegfeldolgozds lesz. Tegyuk fel, hogy egy hosszu ma- 
gyar nyelvu szovegben meg akarjuk szdmolnl, hogy az egyes k6t6- 
szavakb6l (6s, s, de, hogy, vagy, azonban, ez6rt, fgy, meg, s6t) hdny 
db van. 

A programot az ENTERPRISE IS-BASlC-j6ben kell megirni, struk- 
turSltan, olvashat6an. A szoveget egy string-tombben tdroljuk, mely- 
nek elemei 254 karakter hosszuak (ugyanis 254 egy string maximfilis 
hossza), s egy-egy ilyen string szavain ne piklusszervez6ssel, hanem 
rekurziv eljar^shiv^ssal {p6ld5t a multkorrszfimunkban, s a mostani 
megoldisunkban lathatunk r^») menjiink v6gig. Egy sz6 ^tnyulhat 
egyik stringb8l a kdvetkezobel Vlgy^zzunk, egy sz6 v6g6t nem csak 
space, hanem vesszfi, pontosvesszd, kettSspont, pent, felkidltojel 
vagy k6rd6jel is jelezheti. Haszndljuk az eI6z6 szdmunkban ismertetett 
POS f uggv6nyt ! A v6g6n program frja ki, hogy a f ent emiftett k6t6- 
szavak koziil melyikbol h^ny db van. _ 
A programot papiron kerjiik bekiildeni a mGk5dest ismerteto 
lei'rdssal egyutt. 
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